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Parmi les micro-ordinateurs familiaux récents, l'Oric est sans 
aucun doute celui qui présente le meilleur rapport perfor- 
mance/prix. || possède : mémoire importante, haute résolu- 
tion, générateur de sons et un Basic très complet. 


Le but de cet ouvrage est de familiariser le lecteur, débutant ou 
averti, aux nombreuses possibilités de l’Oric, en lui donnant 
sous forme de programmes complets des exemples d’utilisa- 
tion des commandes Basic. 


Dans cet esprit, les 35 programmes sont présentés ainsi : tout 
d’abord le but du programme, ensuite son utilisation, puis un 
commentaire détaillé des différentes parties du listing, le listing 
lui-même, et enfin un exemple d'application ou une photogra- 
phie. 

On trouvera bien entendu des jeux de hasard et de réflexion, 
tels que La tour infernale, Master Mind où Bataille navale, et 
des programmes plus « utiles », comme Calendrier ou Calcu- 
latrice. Les mathématiques sont présentes, avec entre autres 
un calcul de grandes factorielles et un algorithme d'intégration 
selon la méthode de Simpson. L'astronomie est également de 
la partie, avec notamment un programme pour déterminer les 
heures de lever et de coucher du soleil, et un pour convertir des 
coordonnées astronomiques, qui rendra service à l’astronome 
amateur. On découvrira enfin des programmes utilitaires tels 
que la redéfinition du jeu de caractères de l'Oric, ou un désas- 
sembleur pour ceux qui veulent découvrir le langage du micro- 
processeur 6592. 


Bien entendu, tous les programmes sont écrits dans le Basic 
standard de l’Oric, suivant des organigrammes structurés per- 
mettant une lecture aisée des listings, même pour le débutant. 
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Les programmes peuvent naturellement être utilisés tels quels, 
mais ils peuvent aussi servir, plus ou moins modifiés, de point 
de départ ou de sous-programmes à des programmes de plus 
grande envergure. 





— AVERTISSEMENT _. 





La plupart des programmes présentés dans cet ouvrage tour- 
nent aussi bien sur Oric 1 que sur Oric Atmos. Cependant, 
certains programmes utilisent la fonction PRINT), que 
l’'Oric 1 ne possède pas. Ces programmes, repérés par le 
symbole El placé sous le titre, peuvent toutefois tourner sur 
Oric 1 avec de légères modifications : il faut remplacer les 
instructions du type PRINT X, Y; AS par PLOT X, Y, AS. 
Eventuellement certaines instructions du type PRINT AG 
seront aussi à remplacer par PLOT X, Y, AG, où X et Y sont à 
déterminer, pour améliorer la présentation. 
































Pour les enragés du Loto, ce programme donne un nouveau moyen de 
choisir les numéros à jouer. Bonne chance! 


Utilisation. 


Le programme affiche automatiquement les sept numéros à jouer. 


Structure du programme. 


Lignes 19-79 : initialisations-affichage. 

Lignes 89-169 : tirage aléatoire de sept nombres différents compris 
entre 1 et 49. 

Lignes 179-219 : affichage des sept nombres. 


Programme 


18 REM LOTO 

20 PAPER @:INK 2 

30 CLS 

4Q PRINT:PRINT " Ce programme peut vous 
rapporter" 

5Q PRINT “gros 2" 

6Q@ PRINT “ En effet, ;l vous donne les 
? numeros"; 

7Q PRINT ‘que Vous devez jouer au loto, 
80 FOR I=1 TO ? 

90 R=INTCRND(1)*%49+1) 

128 B=0 

119 FOR J=@ TO I-1 

128 IF R=ACJ) THEN B=1 


130 NEXT 

140 IF B=1 GOTO 39 

158 ACID=R 

168 NEXT 

178 PRINT @ 2,11:;CHR$C4) ;CHR$C27) ;"J" 
188 FOR I=1 TO ? 

138 PRINT @ 4+4XI,11;ACI) 

20@ NEXT 

218 PRINT @ 2,28:CHR$(4) 


Exemple 
Ce programme peut Vous rapporter 
gros 1! 
En effet, il Vous donne les ? numeros 


que vous devez jouer au loto. 


20. 13 13 7 32 47 25 
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CADAVRES EXQUIS - 


Ce jeu, très apprécié par les surréalistes, consiste à assembler des 
morceaux de phrases; on obtient ainsi des résultats grammaticale- 
ment corrects mais souvent surprenants et amusants par leur sens. 


Utilisation 


Il suffit de lancer le programme. 


Structure du programme 


Lignes 19-79 : initialisations - affichage. 

Lignes 89-99 : attend une action de l'utilisateur pour continuer. 

Ligne 199 : N représente le nombre de morceaux de phrases connus 
de l'ordinateur. 

Lignes 119-159 : choisit par trois fois un morceau de phrase aléatoire. 
Affichage correspondant. 

Lignes 169-199 : demande pour une autre phrase. 

Sous-programmes 299-219, 300-319, 499-419 : chacun de ces sous- 
programmes permet d'afficher le morceau de phrase de 
numéro J. 


Programme 


19 REM CADAURES EXQUIS 

20 PAPER B:INK 2 

38 CLS 

48 PRINT:PRINT ‘Amateurs de litterature 
experimentale,"; 

50 PRINT “ce programme Va vous plaire £L 
69 PRINT:PRINT ‘Des phrases desopilante 
s vont" 
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78 PRINT “s'afficher sous vos veux ebau 
bis:2" 

80 PRINT @ 2,23;'Appuyez sur une touche 
pour commencer," 

38 GET K$ 

108 N=18 

11@ PRINT:PRINT 

12Q@ FOR I=1 TO 3 

138 J=INTCRNDCIDXN+1) 

148 ON I GOSUB 200,300,400 


158 NEXT 

168 PRINT:PRINT “Une autre phrase 7" 
17@ GET K$ 

180 IF K$©'N'" GOTO 110 

190 END 


208 ON J GOTO 281,202, 203,204,205, 206,2 
2?,208,209,210 

281 PRINT ‘Une voiture “; RETURN 

292 PRINT “Mon Oric ‘";:RETURN 

293 PRINT ‘"L’ascenseur “;: RETURN 

284 PRINT ‘“ine perceuse ‘;:RETURN_ 
205 PRINT “Le magnetophone ‘“; RETURN 
206 PRINT ‘Je ‘";:RETURN 

207 PRINT ‘Une vache ‘” ; :RETURN 

208 PRINT ‘Le pigeon ‘“; RETURN 

203 PRINT “Un jambon ‘“; RETURN 

218 PRINT “L'avion ‘";:RETURN 

308 ON J GOTO 3@1,302,303, 304,305, 306,3 
27,308,309,310 

301 PRINT ‘mange ‘";:RETURN 

302 PRINT ‘“rouie sur ‘;:RETURN 

303 PRINT “pousse ‘“;:RETURN 

304 PRINT ‘vole ‘ ; :RETURN 

385 PRINT "calcule " ; RETURN 

306 PRINT “casse ‘"; RETURN 

387 PRINT ‘“derape sur ‘";:RETURN 

308 PRINT “tombe sur “;:RETURN 

3893 PRINT “chante ‘ ; :RETURN 

318 PRINT ‘regarde ‘ ; :RETURN 
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498 ON J G9TO 481,402,403,4@4,405,406,4 
0?7,408,4093,410 

4@1 PRINT “un agent de poiice,':RETURN 
402 PRINT “des racines carrees,":RETURN 
493 PRINT "la television, '":RETURN 

484 PRINT "le nuage. '":RETURN 

4@5 PRINT “un bonbon.  :RETURN 

486 PRINT ‘une enceinte, ":RETURN 

4@7 PRINT "le telephone," :RETURN 

408 PRINT "le dictionnaire," :RETURN 

483 PRINT ‘une poubelle,  :RETURN 

41@ PRINT ‘le clocher.":RETURN 


Exemple 


Amateurs de litterature experimentale, 
ce programme Va Vous plaire 2 


Des phrases desopilantes vont 
s'afficher sous Vos yeux ebaubis 2 


Une voiture rouie sur le clocher. 

ne autre phrase 7? 

Mon Oric regarde le dictionnaire, 

Une autre phrase 7? 

L'avion tombe sur la television, 

ne autre phrase ? 

Le pigeon tombe sur un agent de police. 
ne autre phrase 7? 

Un jambon tombe sur un agent de police. 
Une autre phrase 7? 

L’ascenseur chante une poubelle. 


ne autre phrase 7? 
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-CLAVIER-REFLEXE 


Ce jeu d'observation et de réflexes va vous permettre de tester votre 
connaissance du clavier de l'Oric. 





Utilisation 


Une lettre de l'alphabet s'affiche aléatoirement sur l'écran. Vous devez 
appuyer le plus rapidement possible sur la touche correspondante du 
clavier de l’Oric. Cela peut vous sembler facile, mais attention ! L'écran 
n'est jamais effacé, si bien que quand une vingtaine de lettres y sont 
déjà éparpillées, il devient difficile de repérer où vient s'afficher la 
suivante. De plus, le jeu se déroule en temps limité : votre score 
correspond au nombre de lettres que vous avez reconnues durant ce 
temps. 


Structure du programme 


Lignes 19-59 : initialisations - la ligne 39 sert à faire disparaître le 
curseur - SC représente le score, T est un compteur de temps. 

Lignes 69-89 : choisit des coordonnées aléatoires (X, Y) et une lettre 
aléatoire (AS). 

Ligne 99 : affiche la lettre choisie sur l'écran. 

Lignes 199-129 : cette boucle décompte le temps en attendant que le 
joueur appuie sur la bonne touche (KEYS=AS). La boucle 
s'arrête aussi si le temps est dépassé (T=0). 

Ligne 139 : augmente le score si le joueur a bien répondu et reboucle 
pour une nouvelle tentative. 

Lignes 149-199 : le jeu est terminé - affichage du score - demande 
pour une nouvelle partie. 


Programme 


18 REM CLAUIER-REFLEXE 
29 PAPER G:INK 2 
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PRINT CHR$(1?7) 

CLS 

SC=<8:T-5000 

X=INT(RNDC(1)*x38+2) 
Y=INTCRNDC1)%x26) 
A$=CHR$CINTCRNDC1)%*26+65)) 
PRINT @ Xx,Y;A$ 

REPEAT 

T=T-1 

UNTIL KEY$=A$ OR T-@G 

IF T>@ THEN SC=SC+] :GOTO 6@ 

CLS 

PRINT @ 8,1@;'"VUotre score :";SC 
PRINT @ 8,14;'"Uoulez-vous rejouer 7 


GET K$ 

IF K$G@'"N" THEN PRINT @ 8,18;'"Atten 
2':WAIT 208 :GOTO 48 

PRINT CHR$C12) 
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Ce programme distribue les cartes au hasard, puis joue à la bataille 
contre vous. 


Utilisation 
Il suffit de lancer le programme. 


Structure du programme 


Lignes 19-219 : initialisations - répartition aléatoire des cartes dans le 
tableau T£. 

Lignes 229-399 : boucle principale du jeu, que l’on peut décomposer 
ainsi : 

Lignes 239-249 : affichage des cartes. 

Lignes 259-399 : repérage de la valeur des deux cartes. 

Lignes 319-339 : comptabilisation des points. 

Lignes 349-389 : affichage des scores - temporisation. 

Lignes 499-429 : affichage du résultat final. 

Lignes 439-599 : demande pour une autre partie - initialisations né- 
cessaires avant de recommencer. 

Ligne 519 : données utiles au programme. 


Programme 


10 REM BATAILLE 

20 PAPER B:INK 2 

30 DIM T$C51),U$C12),C$C39 
48 FOR I=@ TO 12 

50 RERAD US$CI) 

6@ NEXT 

78 FOR J=8 TO 3 

89 READ C$CJ) 
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30 NEXT 


1008 
110 


CLS :PRINT CHR$C12) 
PRINT:PRINT "“ Nous allons jouer à | 


a bataille 9" 


128 
130 
140 
150 


FOR 1=G TO 12 

FOR J=0 TO 3 

K=INTCRNDC1)%52) 

IF T$CK)="" THEN T$CK)=U$CI)+" DE " 


+C$(J):GO0OTO 130 


160 
178 
180 
1930 
200 
210 
220 
230 
248 
250 
268 
270 
280 
D1=I 
230 
HI=I 
320 
310 


320 


330 


K=K+1 

IF K=52 THEN K=8 

GOTO 150 

NEXT J 

NEXT I 

0=0 :H=0:B=1] 

FOR K=@ TO 5@ STEP 2 
PRINT @ 3,5;T$CK);" 
PRINT @ 21,5;T$CK+1);" 
O$=T$CK) 

H$=T$CK+1) 

FOR I=8 TO 12 

IF U$CIJ=LEFT$CO$,LENCUSCI))) THEN 


IF U$CID=LEFTS$SCHS$, LENCU$CI))) THEN 


NEXT I 
IF O1<H1 THEN O=0+B:B=1:PRINT 


IF H1<O1 THEN H=H+B:B=1:PRINT ‘ 


IF O1=H1 THEN B=B+1:PRINT TABC1S) ;" 


BATAILLE" 


340 
350 
360 
370 
380 
330 
400 
e 2" 


PRINT @ 3,15; Mon score" 

PRINT @ 21,15; Votre score" 

PRINT @ 3,17;0 

PRINT @ 21,17;H 

WAIT 200 

NEXT K 

IF O>H THEN PRINT @ 3,20;'J’ai g9gagn 
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410 IF O<H THEN PRINT @ 3,20; Vous avez 
gagne, 

420 IF O=H THEN PRINT @ 3,20; Match nul 
gr 

430 PRINT @ 3,25; Voulez-vous rejouer ? 


448 GET K$ 

450 IF K$="N" THEN PRINT CHR$(17) :END 
468 FOR K=@ TO 51 

478 T$CK)="" 

480 NEXT 

4938 CLS 

508 GOTO 119 

518 DATA AS, ROI, DAME, UALET,19,9,8,7,6,5 
34,3, 2, PIQUE, COEUR, CARREAU, TREFLE 


Nous allons jouer 3 13 bataille ! 


3 DE PIQUE 3 DE COEUR 
BATAILLE 
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LE NOMBRE 
MYSTERIEUX 





Vous devez découvrir un nombre choisi par votre Oric. 


Utilisation 


Vous devez choisir l’un des trois niveaux suivants : 

Niveau 1 : le nombre mystérieux est compris entre 1 et 190. 
Niveau 2 : le nombre mystérieux est compris entre 1 et 1 990. 
Niveau 3 : le nombre mystérieux est compris entre 1 et 19 990. 


Puis vous devez proposer un nombre. L'ordinateur vous indique alors 
s’il est trop grand ou trop petit, et ainsi de suite jusqu’à ce que vous 
ayez trouvé. 


Structure du programme 


Lignes 19-39 : initialisations. 

Lignes 49-69 : introduction du niveau. 

Ligne 79 : création aléatoire du nombre mystérieux NM. 

Ligne 89 : introduction du nombre N. 

Ligne 99 : teste si le joueur a gagné. 

Lignes 199-159 : choisit aléatoirement l'un des cinq commentaires et 
l'affiche. 

Lignes 169-179 : affichage de la réponse. 

Ligne 189 : incrémente la variable NC qui indique combien de nom- 
bres le joueur a déjà proposé. 

Ligne 199 : retourne en ligne 89 (on est ici dans le cas où le joueur n'a 
pas trouvé le nombre mystérieux). 

Lignes 299-249 : le joueur a gagné - affichage - demande pour une 
nouvelle partie. 

Lignes 399-349 : données correspondant aux cinq commentaires 
pouvant être affichés. 
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Programme 


19 REM LE NOMBRE MYSTERIEUX 

28 PAPER G:INK 2 

38 CLS:NC=I 

48 PRINT "Niveau de difficulte C1,2,3) 
ou 

5Q GET K$ 

69 IF K$<"1" OR K$>"3" GOTO 58 

78 NM=INT(RNDC1)XI1G"CUALCK$S)+1)+1) 

88 PRINT :PRINT:INPUT “"Uotre nombre "3;N 
3Q IF N=NM GOTO 280 

180 C=INTCRNDC1)XS) 

118 RESTORE 

128 FOR I=@ TO C 

138 READ C$ 

148 NEXT 

15@ PRINT:PRINT C$ 

168 PRINT:PRINT “Votre nombre est trop 


3 

1286 IF N>NM THEN PRINT "grand." ELSE PR 
INT "petit." 

188 NC=NC+I1 

138 GOTO 88 

20@ PRINT:PRINT “Ah 9 Enfin 2 Ce n’est 
pas trop tot 92" 

21@+*PRINT:PRINT "Uous avez trouve en'";N 
C;i'coups," . | 

228 PRINT:PRINT:PRINT "Voulez-vous reJo 
uer 7" 

238 GET K$ 

240 IF K$<'"N'" GOTO 32 

300 DATA "Bof 2 Pas terrible," 

310 DATA "C’est lamentabie." 

320 DATA “J'espere que vous allez faire 
mieux," 

330 DATA "Si vous continuez comme ca... 


“: 


34Q DATA “Je n’ose pas repondre, Enfin, 
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Exemple 
Niveau de difficulte (1,2,3) ? 


Votre nombre ? 5@0 
Si vous continuez comme ca... 
Votre nombre est trop grand. 


Votre nombre ? 2@0 
Si vous continuez comme ca... 
Votre nombre est trop grand. 


Votre nombre ? 12@ 
J'espere que Vous allez faire mieux, 
Votre nombre est trop grand. 


Votre nombre ? 48 

Bof © Pas terrible. 

Votre nombre est trop petit. 
Votre nombre ? 8@ 

C'est lamentable, 


Votre nombre est trop grand. 


Votre nombre ? 68 

Bof © Pas terrible. 

Votre nombre est trop grand. 

Votre nombre ? 54 

C’est lamentable. 

Votre nombre est trop petit. 

Votre nombre ? 6@ 

Ah 2 Enfin 9 Ce n’est pas trop tot 02 


Vous avez trouve en 8 coups. 


Voulez-vous rejouer ? 
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Vous êtes dans une tour comportant un million de pièces : cent de 
long, cent de large et cent de haut. Vous venez d'apprendre qu'une 
bombe est cachée dans une des pièces, et vous êtes chargé de la 
trouver. Vous disposez d'un détecteur de bombe, affichant un nombre 
d'autant plus élevé (jusqu'à 19 999) que vous vous rapprochez d'elle. 
Cependant, les indications du détecteur varient de façon 
bizarre. 


Utilisation 


À chaque essai, vous devez introduire les trois coordonnées (lon- 
gueur, largeur, hauteur, comprises entre Q et 99). 


Structure du programme 


Lignes 19-149 : initialisations-affichage. 

Lignes 159-189 : calcul de la position de la bombe. 

Lignes 199-239 : initialisations-affichage. 

Lignes 249-329 : boucle permettant l'affichage des résultats et l'intro- 
duction des coordonnées jusqu'à ce que le joueur perde ou 
gagne. 

Lignes 339-459 : affichage de commentaires. 

Lignes 479-489 : demande pour une autre partie. 


Programme 


18 REM LA TOUR INFERNALE 

28 PAPER G:INK 2 

38 CLS :PRINT :PRINT :PRINT :PRINT 

4Q PRINT “ Vous etes dans une tour qui 
comporte" 

58 PRINT “un million de pieces.La tour 
fait 109" 
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6@ PRINT ‘pieces de haut, 198 de long e 


t 190 de“ 

?Q PRINT “large, numerotees de @ a 99. * 
:PRINT 

8@ PRINT “ Une bombe est cachee dans un 
e piece" 

90 PRINT “et vous devez la desamorcer." 
:PRINT 

188 PRINT " Vous disposez d’un detecteu 
r qui" 

112 PRINT ‘affiche un nombre d’autant p 
lus grand" 

12@ PRINT ‘que vous Vous rapprochez de 


ia bombe.'":PRINT 


130 
SSiT. 
148 
150 
160 
170 
182 
130 
208 
210 


PRINT " Vous avez 20 coups pour reu 
WAIT 2000 

XB=INTCRND(1)%x120) 
YB=INTCRND(1)*%100) 
&B=INTCRND(1)%x120) 

IF XB=@ AND YB=Q AND 2B=0 GOTO 168 
XJ=0 :YJ=0:2J-0:NC-@ 

CLS :PRINT 

PRINT “ Signal'”;TABC11);'"Lon";TABCI 


5);"Lar";TAB(19);"Hau"; 


220 
gd." 
230 
240 
250 


PRINT TABC23) ;"Essai";TAB(293);"Coor 


PRINT 
REPEAT 
PRINT 12000-ABSCCXB/100+YB+2B*x100)- 


CXJ/180+YJ+2Jx100)); 


260 


PRINT TABC11);XJ ;TAB(15) 5 TJ; TABC19) 


18J 3 TAB(23) 3NC; TAB(29) ; 


278 INPUT XJ,YJ,2J 

288 NC=NC+1 

290 F= xJ<Q OR XJ>99 OR XJCOINTCXJ) OR 
YJ<@ OR YJ>939 OR YJCINTCYJ) 

300 F-=F OR 2J<@ OR &J>383 OR 2JCINTC2J) 
OR NC>28 

310 G= XJ=XxB AND YJ=YB AND 2J=2B 
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328 UNTIL F OR G 

33Q IF G THEN PRINT:PRINT “Vous avez de 
sactive la bombe en‘ 

340 IF G THEN PRINT NC;'tentatives.':G9 
TO 460 

350 IF £J<Q OR 2J>99 THEN PRINT:PRINT " 
Vous etes maintenant a" 

360 IF 2J<@ THEN PRINT -3X2J;'metres so 
us terre.'":GOTO 42@ 

370 IF 2J>99 THEN PRINT 3X2J;'metres du 
soi.,':GO0T0 420 

380 F= XJ<Q OR XJ>99 OR YJ<G OR YJ>9393 
390 IF F THEN PRINT :PRINT "Vous etes to 
mbe de l’etage No";2J:GOTO 428 

408 F= XJCINTCXJ) OR YJCINTCYJ)J OR 2J 
CINTC2J) 

410 IF F THEN PRINT:PRINT "Vous etes co 
ince dans un mur. 

428 EXPLODE 

438 PRINT:PRINT "Tout à explose 2" 

44Q@ PRINT:PRINT "La bombe etait situee 
aux coordonnees :* 

45Q PRINT “Long;Larg;Haut =";XxB;YB;2B 
46@ PRINT:PRINT “Voulez-vous rejouer ?" 
470 GET K$ 

480 IF K$C'"N" GOTO 15@ 


Exemple 


Vous etes dans une tour qui comporte 
un million de pieces.lLa tour fait 180 
pieces de haut, 1@@ de long et 1@@G de 
large; numerotees de @ a 99, 


Une bombe est cachee dans une piece 
et vous devez la desamorcer, 


Vous disposez d’un detecteur qui 
affiche un nombre d’autant plus grand 
que Vous vous rapprochez de la bombe. 
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Vous avez 2@ coups pour reussir, 


Signal 


2423.11 
39373,61 
3716.44 
3768.36 
3393.51 
3395. 71 
3998.81 
3333.03 
3999, 21 
3333.41 
3393.61 
933939, 93 
93933, 38 


Vous avez desactive 
13 tentatives. 


Lon Lar Hau Essai 


38 
31 


Coord. 
@ (z] ? 58,50,25 
25 1 7 45,60,28 
28 2 7 25,45,23 
23 3 ? 40,70,25 
25 4 7 68,72,25 
25.5 ? 20,75,25 
25 6 7 88,77,25 
25 . 7 7 10,76,25 
25 8 7 30,276,25 
25 9 ? 52,76,25 
25 18 ? 30,76,25 
25 11 ? 91,/6,25 
295 12 7 893,76,25 


ia bombe en 


Voulez-vous rejouer ? 
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— MASTER MIND. 


Vous devez découvrir un code secret créé par l'ordinateur. 


Utilisation 
Ily a deux niveaux de jeu ; vous en choisissez un au début de la partie. 


À chaque coup, vous devez introduire un code formé de chiffres, sans 
laisser d'espace ni mettre de virgule entre ces chiffres. 


Structure du programme 


Lignes 19-59 : initialisations. 

Lignes 69-89 : création aléatoire du code secret. 

Lignes 99-349 : boucle principale du jeu, qui se décompose ainsi : 
Lignes 119-189 : introduction, vérification, affichage du coup joué. 
Lignes 199-249 : calcul du nombre de chiffres mal placés. 

Lignes 259-399 : calcul du nombre de chiffres bien placés. 

Lignes 319-329 : affichage de la réponse. 

Ligne 339 : permet d'arrêter la boucle si le joueur a trouvé le code. 
Lignes 359-399 : affichage du code secret. 

Lignes 499-449 : affichage - demande pour une autre partie. 
Sous-programme 599-679 : affichage des instructions - initialisations. 
Sous-programme 799-869 : choix du niveau - initialisations. 


Programme 


19 REM MASTERMIND 

28 PAPER U:INK 2 

32 CLS 

48 GOSUB 500 

50 GOSUB 700 

68 FOR I=1 TO F 

78 CCIJ=INTCRNDC1)X(C+1)) 
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88 NEXT 

38 FOR P=1 TO T 

128 PRINT @ 2,16;'"Uotre coup ‘; 

110 INPUT K$ 

12@ IF LENCK$J©F GOTO 180 

130 E=0 

14@ FOR I=1 TO F 

150 IF MID$CK$,1,1)<"2" OR MID$CK$,1,1)J 
DRIGHT$SCSTR$S(C),1) THEN E=1:1=F 

168 NEXT 

17@ IF E=1 GOTO 180 

18Q PRINT @ 15,15-P;K$ 

190 B-0 

208 FOR I=1 TO F 

218 DCI)=CCI) 

22@ GCI)J=UALC(MIDSCK$,1,1)) 

230 IF GCI)=DCI) THEN B=B+1:G(CI1)=18:D(I 
)=9 

24@ NEXT 

25@ W=@ 

268 FOR I=1 TO F 

27@ FOR J=1 TO F 

288 IF GCJ)-DCI) THEN W=W+1:G(J)=18:DCI 
)1=9 

298 NEXT J 

308 NEXT I 

310 R$=LEFT$C"O0000",W)J+LEFTS$SC'"XXXxxx",B 


328 PRINT @ 13-LENCR$),15-P;R$ 

330 IF B=F THEN P=T 

34@ NEXT P 

350 K$="" 

360 FOR I=1 TO F 

3720 K$=KS$+RIGHT$SCSTR$SCCCI)),1) 

380 NEXT 

398 PRINT @ 15,1;K$ 

408 IF B=F THEN PRINT @ 2,16;'"Bravo 2"; 
ELSE PRINT @ 2,16;'"Perdu 2"; 

41Q PRINT “ Voulez-vous rejouer ?" 
420 GET K$ 
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430 IF K$©'"N'" GOTO 5@ 

44Q END 

528 DIM G(C5),CC5),DCS) 

518 CLS 

52@ PRINT @ 19,13" MASTER MIND" 

530 PRINT @ 3,5;'Uous devez trouver le 
code secret que"; 

549 PRINT “ j’ai choisi en utilisant 4 
chiffres de" 

558 PRINT "@ a 6 pour Le MINI MASTER MI 
ND, ou" 

56@ PRINT "bien 5 chiffres de @ a 8 pou 
r Le 

520 PRINT "SUPER MASTER MIND. Vous deve 
z trouver" 

588 PRINT "la solution en 6 ou 12 coups 
selon le 

598 PRINT "cas, Je repondrai a vos essa 
is de la" 

608 PRINT ‘maniere suivante :" 

618 PRINT:PRINT “ %X : un de vos chiffre 
s se trouve dans" 

62@ PRINT " mon code et il est bien 
p Lace." 

638 PRINT:PRINT “ O : un de Los chiffre 
s se trouve dans" 

648 PRINT " mon code mais il est ma 
i place." 

65@ PRINT:PRINT:PRINT “Appuyez sur une 
touche pour continuer" 

668 GET K$ 

678 RETURN 

288 CLS 

718 PRINT @ 18,13; MASTER MIND" 

72@ PRINT @ 3,5;'Quelle variante prefer 
ez-vous ?" 

?230@ PRINT:PRINT “ 1 MINI MASTER MIND" 
24Q@ PRINT:PRINT " 2 SUPER MASTER MIND 


258 GET K$ 
28 


GOTO 738 


C=6:T=6: 
C 


THEN F=4 


768 IF K$="l" 


T=12:GO0OT0 73 


=8 


THEN F=5 


778 IF K$="2" 


280 GOTO 750 


238 CLS 


LEFT$C"@eeee",Fr) 


ÿ 


800 PRINT @ 15:1 


818 PRINT 
829 FOR I 


1 


GOTO 850 


12 TO 1 STEP 


830 IF IDT THEN PRINT 
840 PRINT RIGHT$(C" 


858 NEXT 


53) 


+STR$(I)D 


868 RETURN 
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LES POIS SAUTEUR 


Quatre pois « + » et quatre pois « O » se font face. Le jeu consiste à 
inverser leurs positions de part et d'autre du centre. 


Utilisation 


Vous devez introduire la coordonnée du pois à déplacer et sa coordon- 
née d'arrivée, sachant qu’un pois peut soit se déplacer vers une case 
voisine si celle-ci est libre, soit sauter au-dessus d'un pois voisin pour 
arriver sur la case suivante, si celle-ci est libre bien sûr. 


Le nombre de coups joués est affiché en fin de partie. 


Structure du programme 


Lignes 19-199 : initialisations - affichage. 

Ligne 119 : attend une action de l'utilisateur pour continuer. 

Lignes 129-199 : initialisations. 

Lignes 299-259 : affichage des pois. 

Ligne 269 : incrémentation du nombre de coups joués. 

Lignes 279-289 : introduction du déplacement. 

Lignes 299-319 : vérification de la validité du déplacement. 

Lignes 329-339 : enregistrement du déplacement. 

Lignes 349-369 : vérification de fin de partie. 

Lignes 379-439 : affichage du nombre de coups - demande pour une 
nouvelle partie. 


Programme 


18 REM LES POIS SAUTEURS 

28 PAPER G:INK 2:CLS 

3Q PRINT:PRINT “ Huit pois sauteurs son 
t alignes de” 
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4@ PRINT “part et d’autre du centre. Vo 
us devez" 

5@ PRINT "inverser ieurs positions resp 
ectives," 

6@ PRINT:PRINT " Les pois peuvent se de 
placer vers une" 

?7@ PRINT "case Voisine si celle-ci est 
Libre, ou" 

80 PRINT "bien sauter par dessus un aut 
re pois" 

90 PRINT "Vers une case libre," 


180 


ur une touche pour jouer. 


119 
129 
130 
140 
150 
168 
178 
180 
130 
200 
210 
220 
g" 
230 
248 
250 
260 
270 
280 
230 
300 
DXx<1 
310 


PRINT PRINT :PRINT:PRINT * Appuyez s 
GET K$ 

DIM P$(2),Mx(9) 

P$(C@)="," 

P$C1)="X" 

P$(2)3="0" 

NC=0 

FOR I=1 TO 3 

MXCI)=-CI1<5)-2XC12>5) 

NEXT 

REPEAT 

CLS 

PRINT:PRINT:PRINT "12345678 


FOR I=1 TO 3 

PLOT 2XI+1,5,P$(MXC1I)) 

NEXT 

NC=NC+1 

PRINT :PRINT :PRINT :PRINT :PRINT 
PRINT:INPUT "Votre coup ";xB,Xx1 
DXx=ABSCX1-X8) 

F= X@<1 OR X8>9 OR X1<8 OR X123 OR 
OR DX>2 OR MX(XB)-@ OR MXCX1) 0 
IF F THEN PRINT:PRINT "Dep lacement 


interdit © Recommencez.":GOTO 288 


3208 
338 
348 


MXCX1)=M2CX8) 
Mx(x2)=-0 
TI=MZ(1)+MX(2)+MX(3)+Mx7(4) 
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350 T2=MX(6)+MXC72)+Mx(8)+M2C9) 

360 UNTIL Ti1=8 AND T2=4 

370 CLS 

380 PRINT :PRINT :PRINT "12345678 

9" 

398 PRINT :PRINT :PRINT “ 9 O OO. *%x *x * 

x! 

408 PRINT :PRINT :PRINT:PRINT “Uous avez 
gagne en‘";NC;'coups," 

410 PRINT:PRINT "Vouiez-vous rejouer 7?" 

42Q GET K$ 

43Q@ IF K$@'"N" GOTO 168 
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Des atomes d'impuretés se sont introduits dans un cristal lors de sa 
formation. Heureusement, un système optique utilisant les rayons X 
permet de les localiser. La méthode consiste à envoyer un rayon X 
dans le cristal, suivant une direction donnée, et à analyser le rayon 
émergent. Quatre cas peuvent se présenter : 


1 - le rayon est absorbé lorsqu'il rencontre un atome ; 


2 - le rayon est dévié de 90° lorsqu'il arrive sur une case diagonale du 
voisinage immédiat d’un atome ; 


8 - le rayon est réfléchi lorsqu'il arrive entre deux atomes séparés par 
une seule case, ou lorsque l'atome est juste au bord du cristal et que le 
rayon est envoyé sur une case voisine de l'atome ; 


4 - dans les autres cas, le rayon n’est pas dévié. 


Utilisation 


Vous choisissez tout d’abord le niveau de difficulté en introduisant le 
nombre d’atomes souhaité. Ensuite, vous introduisez le numéro de 
ligne ou de colonne (entre 1 et 32) où vous voulez envoyer le rayon X, 
puis l'ordinateur répond. Lorsque vous avez découvert les atomes, 
appuyez sur « ÿ »; introduisez alors les coordonnées des atomes, 
sous la forme « ligne, colonne », les numéros de ligne et de colonne 
étant compris entre 1 et 8. 


Le score est comptabilisé de la manière suivante : 


— 1 point pour un rayon réfléchi ou absorbé ; 
— 2 points pour les rayons émergents ; 
— 5 points pour chaque atome non trouvé. 


Le but du jeu est évidemment de réaliser le plus petit score possible. 
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32 31 39 29 28:27 -26 25 


Cas 1) 


Cas 2) 




















9 19 11 12 13 14 15 16 
Cas 4) 


Structure du programme 


Lignes 19-169 : initialisations - affichage - introduction. 

Lignes 174-219 : calcul aléatoire des positions des atomes. 

Ligne 229 : initialisations. 

Lignes 239-519 : boucle principale - calcul de la trajectoire du rayon 
dans les différents cas. 

Lignes 529-589 : introduction des résultats. 

Lignes 599-669 : affichage du cristal. 

Lignes 679-699 : affichage du score. 

Lignes 799-729 : demande pour une autre partie. 


Programme 


19 REM RAYON *x 

2@ PAPER G:INK 2 

38 CLS:PRINT:PRINT " Des atomes d?impur 
etes se sont" 


34 


4Q@ PRINT “introduits dans un cristal, e 
t vous" 
50 PRINT "etes charge de les localiser. 


6@ PRINT:PRINT " Pour cela; Vous envoye 


Z à 


l’interieur'"; 


78 PRINT “un rayon X.Celui-ci peut etre 
devie ou" 
8Q PRINT “absorbe, et vous devez deduir 


e de 


ces" 


3@ PRINT "resultats La position des ato 


mes," 

18Q PRINT:PRINT " Combien d’atomes voul 
ez-vous" 

119 INPUT “rechercher ";NB:PRINT 

128 FOR I=@ TO 3 

130 FOR J=Q@ TO 9 

148 CCI,J)=@ 

150 NEXT J 

168 NEXT I 

170 FOR I=1 TO NB 

188 X=1+INTCS8XRND(1)) 

198 Y=1+INTCS8XRND(1)) 

200 IF CCX;,Y)=-@ THEN CCX,Y)=1 ELSE GOTO 
180 

210 NEXT 

220 A=@:SC-8 

230 INPUT "Rayon “3;R 

248 IF R<1i GOTO 528 

250 IF R<9 THEN X=@:Y=R:IX=1 :IY=0@:GOTO 
320 

260 IF R<17 THEN X=R-8:Y=9:IX=@:IY=-1:G 
OTO 328 

278 IF R<25 THEN X=9:Y=25-R:IxX=-1:IY=0: 
GOTO 320 

280 IF R<33 THEN X=33-R:Y=0:1X=0:IY=1:G 
OTO 320 

290 PRINT "Erreur 9 Uous devez donner u 
n nombre" 
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300 PRINT "compris entre @ et 32.Recomm 
ercez," 


310 
320 
330 
340 


GOTO 230 
XS=X+IX 
YS=Y+IY 
IF IX=Q THEN XG=XS-1 :XD=XS+1 :YG=YS: 


YD=YS :GOTO 370 


350 
360 
370 


RAG=XS :YG=YS-1 
RD=XS : YD=YS+1 
IF CCXS, YS)=1 THEN PRINT "Le rayon 


est absorbe.'":SC=SC+1:GOTO 238 


380 


IF CCXD, YD)=8 AND CCXG, YG)=Q THEN X 


=XS:Y=YS:GOTO 438 


338 
400 
410 
420 
430 
440 
458 
460 
470 
4808 


IF CCXD,YD)=1 THEN DI=-1 

IF CCXG,;YG)=1 THEN DI=1 

IF IX=Q THEN IX=DI:IY=8:GOTO 438 

IF IY=Q THEN IX=@:IY=DI 

IF X<1 THEN RE=Y:GOTO 480 

IF X>28 THEN RE=25-Y:GOTO 480 

IF Y<i THEN RE=33-X:GOT0 480 

IF Y>8 THEN RE=Xx+8:GOTO 480 

GOTO 320 

IF REC©R THEN PRINT "Le rayon";R;"s 


ort en"3;RE:SC=SC+2:GO0OT0 238 


490 
500 
2510 
520 


PRINT "Le rayon est reflechi." 
SC=SC+1 

GOTO 230 

PRINT:PRINT " Donnez la position de 


s atomes sous" 


530 
540 
550 
560 
578 
580 
590 
600 
610 
620 
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PRINT “la forme (colonne, LigneJ:" 
FOR I=1 TO NB 
PRINT:PRINT " Atome numero“;l; 


INPUT C,L 

IF CCC;,L)=1 THEN A=A+1 ELSE SC=SC+S 
NEXT 

PRINT 

FOR J=1 TO 8 

PRINT " "3 


FOR I=1 TO 8 


630 IF C(I;,J)=8 THEN PRINT “ ,"; ELSE P 
RINT " x"; 

64@ NEXT I 

659 PRINT :PRINT 

66@ NEXT J 

67Q PRINT:PRINT:PRINT "“ Vous avez decou 
vert";A;'"des";NB 

68Q PRINT ‘atomes. " 

698 PRINT:PRINT “" Votre score est “;SC 
200 PRINT:PRINT " Voulez-vous rejouer ? 


718 GET K$ 
?2@ IF K$©@'"N" GOTO 100 


Exemple 


Des atomes d’impuretes se sont 
introduits dans un cristal, et vous 
etes charge de les localiser. 


Pour cela; vous envoyez à l’interieur 
un rayon X.Celui-ci peut etre devie ou 
absorbe, et Vous devez deduire de ces 
resultats la position des atomes. 


Combien d’atomes vouiez-vous 
rechercher ? 3 


Rayon ? 2 
Le rayon 2 sort en 31 
Rayon ? 5 
Le rayon 5 sort en 27 
Rayon ? 27 
Le rayon est refiechi. 
Rayon ? 1@ 
Le rayon 18 sort en 4 
Rayon ? D 


Donnez la position des atomes sous 
ia forme (colonne, ligne): 


Atome numero 1 ? 3,3 
Atome numero 2 ® 7,6 


Atome numero 3 ? 7,8 


Vous avez decouvert 3 des 3 
atomes. 


Votre score est 7? 


Voulez-vous rejouer ? 
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— BATAILLE NAVALE-—— 
— 


Vous allez jouer à la bataille navale contre votre Oric. 


Utilisation 


L'ordinateur dispose secrètement un vaisseau de quatre cases de 
long, deux de trois cases, trois de deux cases et quatre de une case. 


À chaque tour, vous devez indiquer la case où vous désirez tirer en 
précisant d’abord la lettre, puis le chiffre (ex. : A9, B7). 


L'ordinateur répond par un bruit et place sur une grille un « O » sivous 
n'avez fait aucun dégât, ou bien une « x >» si vous avez touché un de 
ses vaisseaux. 


Structure du programme 


Lignes 19-129 : initialisations - affichage d'une grille. 

Lignes 139-359 : place aléatoirement les vaisseaux dans le tableau 
TX. 

Lignes 499-489 : introduction et vérification du coup. 

Ligne 499 : indique pour plus tard que ce coup a été joué. 

Ligne 599 : incrémente S qui représente le nombre de coups joués. 

Lignes 519-529 : teste si ce coup touche un vaisseau ou non. 

Ligne 539 : retourne à l'introduction du coup tant que tous les vais- 
seaux n'ont pas été détruits. 

Lignes 549-599 : affichage du nombre de coups joués - demande 
pour une nouvelle partie. 

Lignes 699-669 : réinitialise les variables avant de rejouer. 


Programme 


10 REM BATAILLE NAUALE 
20 PAPER G:INK 2 
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40 . 


sa 
6@ 
28 

"PR 
8a 
98 
128 
118 
128 
130 
135 
140 
159 
169 
128 
180 
138 
200 
218 
220 


DIM Tz(9,93),Azx(9,9) 

PQS= "+++ +++ +++ ++ 

PI$=" sisi ss ss ss si" 

CLS :PRINT CHRS$(12) 

PRINT:PRINT ABCDODEFGHI J 
INT 
FOR I=8 TO 3 
PRINT ‘ ";Pa$ 

PRINT I:;P1$ 

NEXT 

PRINT "Pas , 

FOR 1=3 TO @G STEP -1 

FOR J=8 TO 3-I 
TX=INTCRNDC1)%x1G):TY=INTCRNDC1)%10) 
IF AZCTX,TY)=1 GOTO 148 
D=INTCRNDC1)%4) 

IF D=G THEN IX=8:IY=-1 

IF D=1 THEN IX=-1:IY-@ 

IF D=2 THEN IX=1:1Y=0 

IF D=3 THEN IX=G:IY=1 
QX=TX+IXIX:QY=TY+IXIY 

IF QX<8 OR QX>S OR QY<G OR QY>3 GOT 


0 148 


230 
240 
250 
260 
270 
2808 
230 
320 
310 
THEN 
329 
330 
340 
350 
408 
410 


IF AXC(QX,;,QY)=1 GOTO 148 

FOR K=Q TO I 

TZCTXTKXIX, TY+KXIY)=1 

NEXT 

FOR K=-]l' TO I+l 

FOR L=-] TO 1 

X=TXTKXIX-LKIY 

Y=TY+KXIY+LXIX 

IF X>=@ AND X<=9 AND Y>=@ AND Y<=3 
AZCX, Y)=1 

NEXT L 

NEXT K 

NEXT J 

NEXT I 

PRINT @ 28,13;' Votre coup" 

PRINT @ 28,15;* ‘“;CHR$C12);:INPUT 


R$:PRINT CHR$C12) 
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420 
430 
440 
450 
79 
468 
470 
480 
430 
508 
510 


IF LENCR$)<>2 GOTO 418 
L$=LEFTSCRS, 1) 

C$=RIGHTSCRS, 1) 

IF L$<"A" OR L$>"J" OR C$<"2" OR C$ 
GOTO 419 


X=ASC(L$)-65 

Y=ASC(C$S)-48 

IF AZCX,Y)=2 GOTO 41@ 

AZCX, Y)=2 

S=S+1 

IF TXCX, Y)=1 THEN P=P+1:2AP :EXPLODE 


PRINT @ 2XX+6, 2XY+S; "x" 


520 


IF TXCX, Y)=Q THEN 2AP:PRINT @ 2*Xxx+6 


,2XY+5; "0" 


530 
540 
550 
568 


IF P<28 GOTO 418 

WAIT 5@@ 

CLS 

PRINT @ 5,5;'"Uous avez gagne en';S; 


"coups" 


570 
582 
590 
680 
610 
628 
630 
640 
658 
660 
670 


PRINT @ 5,7 ;'Vouiez-vous rejouer 7?" 
GET K$ 

IF K$="N" THEN PRINT CHR$(12):END 
FOR I=Q TO S 

FOR J=8 TO S 

TxC1,J)=G:AXCI,J)=@ 

NEXT J 

NEXT I 

S=<0 :P=8 

CLS :PRINT 

GOTO ?@ 
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| RECOEFGHIJ 
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RE 


Dans ce jeu de mémoire, vous devez retrouver une séquence à la fois 
visuelle et musicale que votre Oric a créée. 


Utilisation 

A chaque tour, l'Oric vous fait entendre une séquence de notes et 
affiche en même temps la touche (1, 2, 3 ou 4) que vous devez 
enfoncer pour reproduire la même note. Vous devez ensuite répéter 
cette séquence grâce aux touches 1, 2, 3 ou 4, et appuyer sur la barre 
d’espacement quand vous avez fini. Si votre réponse est bonne, vous 
rejouez immédiatement avec la même séquence plus une note sup- 
plémentaire. Le jeu débute avec une séquence d'une note. 


Structure du programme 


Lignes 19-49 : initialisations. 

Lignes 59-79 : affichage des scores. 

Lignes 89-99 : annonce le début du jeu. 

Lignes 199-119 : la chaîne AS, qui contient la séquence, est augmen- 
tée d’une note aléatoire, déterminée par C. 

Lignes 129-159 : permet de faire écouter la séquence. 

Lignes 169-229 : affichage - introduction de la réponse (R3). 

Ligne 239 : teste la réponse — si elle est bonne, on augmente le 
score et on recommence. 

Lignes 249-289 : affichage - demande pour une autre partie. 

Sous-programme 1999-1969 : affiche 1 en double hauteur, et émet 
un do grave. 

Sous-programme 1199-1169 : affiche 2 en double hauteur, et émet 
un mi. 

Sous-programme 1299-1269 : affiche 3 en double hauteur, et émet 
un sol. 

Sous-programme 1399-1369 : affiche 4 en double hauteur, et émet 
un do aigu. 
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Programme 


1@ REM SIMON 

2@ PAPER GB:INK 2:PRINT CHR$(17) 

30 MsS=0 

49 SC=8:A$="" 

50 CLS 

68 PRINT @ 3,1;'Meilleur score :";MSs 
7@ PRINT @ 3,3;'"Uotre score :"3SC 
80 PRINT @ 3,2@;"ATIENTION 2" 

938 WAIT 10 

19@ C=INTCRNDC1)%4+1) 

118 A$=A$STRIGHTSCSTRSCC), 1) 

128 FOR I=1 TO LENCAS$) 

130 C=UALCMID$SCA$,1,1)) 

14Q ON C GOSUB 1000,11008,1206,1300 

150 NEXT 

160 PRINT @ 3,20;"Uotre reponse 7?" 

178 R$="" 

180 REPEAT 

1390 GET K$ 

208 C=VALCKS$) 

21@ IF C>Q@ AND C<S THEN R$=R$S+KS$ :ON C G 
OSUB. 1000, 1198, 1200, 1300 

228 UNTIL K$=" ‘ 

230 IF R$=A$ THEN SC=SC+1 :MS=MS-(SC>MS) 
:GOTO SG 

24Q PRINT @ 3,20;"C’'est faux ® VUoulez-v 
ous rejouer ?" 

25@ GET K$ 

260 IF K$<C'"N'" GOTO 40 

27Q PRINT CHR$(17) 


280 


END 


1000 PRINT @ 3,11 :;CHR$(4) ;CHR$C27) ;"J" 
1818 PRINT @ 7,11;"1";CHR$C4) 

1228 MUSIC 1,3,1,15 

1930 WAIT 30 

1848 PRINT @ 7,11;CHR$(4);" ";CHR$C4) 
1250 MUSIC 1,2,1,8 

1260 RETURN 
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1120 
1110 
1128 
1130 
1140 
1150 
1160 
1200 
1210 
1220 
1230 
1240 
1259 
1260 
1320 
1310 
1320 
1330 
1340 
1350 
1360 


PRINT @ 3,11 ;CHR$C4) ;CHR$C27) ;"J" 
PRINT @ 11,113;"2";CHR$(4) 

MUSIC 1,3,5,15 

WAIT 30 ; 

PRINT @ 11,11:;CHR$(4);" ";CHR$C4) 
MUSIC 1,@,1,0 

RE TURN 

PRINT @ 3,11 ;CHR$C4) ;CHR$C27) ;"J" 
PRINT @ 15,11;"3";CHR$(4) 

MUSIC 1,3,8,15 


WAIT 30 

PRINT @ 15,113;CHR$(4);" ";CHR$(4) 
MUSIC 1,0,1,0 

RE TURN 


PRINT @ 3,11;CHR$(4) ;CHR$C27) ;"J" 
PRINT @ 19,11;"4";CHR$C4) 

MUSIC 1,4,1,15 

WAIT 30 

PRINT @ 19,11;CHR$(4);" ";CHR$(C4)J 
MUSIC 1,@,1,@ 

RE TURN 
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— CHENILLE — 


FR OR AR 


Vous déplacez une charmante chenille sur l'écran. Elle doit avaler 
autant de points affichés que possible. Mais attention! Plus la chenille 
mange, plus elle dépose. d’excréments derrière elle; dès qu'elle 
heurte quelque chose « qui n'est pas de la bonne nourriture », vous 
avez perdu. 


Utilisation 


Vous déplacez la chenille grâce aux quatre touches de déplacement 
du curseur. 


Le score affiché en fin de partie correspond à la somme des points 
dévorés par la chenille. 


Structure du programme 


Lignes 19-59 : initialisations - affichage du score initial. 

Lignes 69-199 : remplissage du tableau P % qui contient les positions 
des dix éléments de la chenille - affichage de la chenille. 

Lignes 119-129 : initialisations. 

Lignes 139-199 : affichage d’un cadre autour de l'écran. 

Lignes 209-249 : prépare le déplacement de la chenille. 

Ligne 259: appelle le sous-programme 1999 si la chenille se 
déplace sur autre chose qu'une case libre. 

Lignes 269-349 : déplacement de la chenille. 

Ligne 359 : appelle le sous-programme 2999, en moyenne une fois 
sur dix. 

Ligne 369 : permet de recommencer la boucle ci-dessus, à partir de 
la ligne 299. 

Sous-programme 1999-1969 : teste si la chenille se déplace sur un 
point de nourriture où non ; si oui, le score est incrémenté et on 
retourne dans la boucle de jeu; sinon le joueur a perdu, on 
affiche le score et le programme se termine. 
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Sou 


s-programme 2999-2959 : affiche aléatoirement un point de nour- 
riture sur une case de l'écran, à condition que cette case soit 
libre. 


Programme 


10 
28 
38 
INK 
48 
50 
69 
78 
80 
38 
120 
118 
1298 
138 
148 
158 
166 
178 
175 
188 
185 
130 
280 
210 
220 
238 
240 
250 
2 TH 
260 
270 
280 
230 
SE P 


REM CHENILLE 
DIN PX(S3,1) 
CLS :PRINT CHR$S(29) ;CHR$C17) ;CHR$CE) : 
2:PAPER G : 
PLOT 1,8,7 
PLOT 3,8,'"SCORE : G" 
FOR I=9 TO S 
Px(1,@)=20 
PxCI1,:1)=12-I 
PLOT PXCI,G),PzxCI,1),"X" 
NEXT 
KY=#0208 
IX=Q:IY=1 
FOR I=2 TO 38 
PLOT 1,2,"@" 
NEXT 
FOR J=3 TO 25 
PLOT 2,J,"@":PLOT 39,J,'"e" 
NEXT 
FOR I=2 TO 33 
PLOT 1,26,"e" 
NEXT 
K=PEEKCKY) 
IF K=156 AND IY=@ THEN IX=G:IY=-1 
IF K=172 AND IX=@ THEN IX=-]:IY=0 
IF K=188 AND IX=QG THEN IX=1:1IY=0 
IF K=18Q AND IY=QG THEN IX=G:IY=1 
IF SCRNCPXCHD,@)+1IX, PXCHD, 1)+IY)<23 
EN GOSUB 1000 
HD=Hp-1 
IF HD<G THEN HD=S 
P1=PZCHD,G):P2=PZCHD,1) 
IF M>Q THEN M=M-1:PLOT P1,P2,;"@e" EL 
LOT P1,P2," " 
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300 
310 
320 
330 
348 
350 
368 
1808 
1210 
:PLOT 
1220 
1230 
12408 
1250 
1260 
2080 
2810 
2020 
2930 
2040 
2850 
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HD=HD+1:IF HD=1G THEN HD=G 
P1=PZCHD, 8) :P2=PZCHD,1) 
HD=HP-1:IF HD<@ THEN HD=S 
PXCHD,8)=P1+IX:PXCHD, 1)=P2+IY 
PLOT PI+IX,P2+IY, "x" 
IF RNDC1)>G.S THEN GOSUB 2800 
GOTO 280 
CH=SCRN(PZXCH5, G)+IX,PZCHD, 1)+IV) 
IF CHC>64 THEN M="M+CH-48:S=S+CH-48 
18,0, STR$S(S) :PING :RETURN 
2AP :EXPLODE :WAIT 100 
CLS 
PRINT @ 3,12;'UOTRE SCORE :"3S 
PRINT CHR$(28) ;CHR$C12) ;:CHRSC6) 
END 
C1=INTCRND(1)%x36+3) 
C2=INTCRNDC1)%x233+3) 
IF SCRNCCI1,C2)3<>32 THEN RETURN 
C3=INTCRNDC1)%XS9+1) 
PLOT C1,C2,STR$CC3) 
RETURN 









Ce programme convertit en chiffres romains un nombre écrit en chif- 
fres arabes. 


Utilisation 
Il suffit d'introduire le nombre à convertir, qui doit être entier et positif. 


Structure du programme 


Lignes 19-49 : initialisations - affichage. 

Lignes 59-179 : cette boucle permet de convertir autant de nombres 
que l’utilisateur le désire, jusqu’à ce qu'il appuie sur la touche 
« N » -elle se décompose ainsi : 

Lignes 69-79 : initialisations - ROS contiendra l'écriture en chiffres 
romains du nombre. 

Lignes 89-99 : introduction du nombre à convertir - sauvegarde de ce 
nombre N dans la variable N1. 

Lignes 199-139 : cette boucle effectue la conversion proprement dite. 

Ligne 149 : affichage du résultat. 

Lignes 159-169 : demande pour un autre calcul. 

Lignes 219-229 : données utiles au programme. 


Programme 


19 REM CONUVERSION ARABES -> ROMAINS 
29 PAPER B:INK 2 

30 CLS 

4@ PRINT :PRINT "“ Conversion chiffres ar 
abes —-> romains" 

5Q REPEAT 

68 RO$="" 
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?7@ RESTORE 

88 PRINT:INPUT “Nombre a convertir "3;N 
38 NI=N 

100 REPEAT 

118 READ A,A$ 

120 IF N>=A THEN N=N-A:RO$=RO$+A$ :GOTO 
120 

138 iNTIL N<1 

148 PRINT:PRINT Ni;j's’ecrit ";RO$;" en 
chiffres romains" 

158 PRINT:PRINT "Un autre nombre a conv 
ertir 7?" 

168 GET K$ 

17@ UNTIL K$="N" 

180 DATA 1000,", 900, CM, 500,D, 400, CD, 100 
:C,: 930, XC,S0,L,48,XL,18,Xx,9,IX 

198 DATA S,U,4,IU,1,1I 


Exemple 


Conversion chiffres arabes -> romains 
Nombre a convertir 7? 42 

42 s’ecrit XLII en chiffres romains 
Un autre nombre a convertir ? 

Nombre à convertir 7? 72 

77 s'ecrit LXXUII en chiffres romains 
Nombre a convertir ? 1238 


1238 s’ecrit MCCXXXUIII en chiffres romains 
Un autre nombre à convertir ‘? 


Nombre à convertir ? 1984 
1984 s’ecrit MCMLXXXIU en chiffres romains 


Un autre nombre à convertir 7? 
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Ce programme vous permet de faire défiler sur l'écran un message de 
votre choix. 


Utilisation 
Il suffit d'introduire le message, qui défile immédiatement, en double 
hauteur. 


Structure du programme 


Lignes 19-49 : initialisations - VI contrôle la vitesse de défilement (si VI 
augmente la vitesse diminue, et réciproquement). 

Ligne 59 : introduction du message. 

Ligne 69 : rajoute trois étoiles devant le message. 

Ligne 79 : initialise la chaîne B$, qui sera affichée. 

Ligne 89 : calcule la longueur de Aë. 

Ligne 99 : efface l'écran et supprime le curseur. 

Ligne 199 : prépare l'affichage en double hauteur. 

Ligne 119 : remet C à ÿ - C indique quelle partie du message est 
affichée. 

Lignes 129-189 : cette boucle réalise le défilement du message — 
elle s'arrête quand l'utilisateur appuie sur la barre d'espace- 
ment — cette boucle peut se décomposer ainsi : 

Lignes 139-149 : incrémentation du compteur C - test de dépasse- 
ment. 

Ligne 159 : supprime le premier caractère de BS et lui ajoute le 
caractère n° C de AG. 

Ligne 169 : affichage. 

Ligne 179 : introduit un délai. 

Ligne 199 : rétablit l'affichage normal et le curseur. 


Programme 


10 REM MESSAGE 
20 PAPER G:INK 2 
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30 CLS 

48 UI-28 

50 PRINT:INPUT " Quel est votre message 
AS 

60 A$=" XXxX "+AS$ 

20 B$=" 


80 L=LENCAS) 

38 CLS:PRINT CHR$(17) 

128 PRINT @ 2,11;CHR$(4) ;CHR$C27) ;"J" 
118 C=0 

128 REPEAT 

130 C=C+1 

148 IF CL THEN C=1 

158 B$=RIGHT$CB$S+MID$SCA$,C;, 12,37) 
169 PRINT @ 3,11;B$ 

178 WAIT UI 

189 UNTIL KEY$=" " 

138 PRINT CHR$(4) ;CHR$C17) 
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— ENTRE DEUX 


Ce programme calcule le nombre de jours entre deux dates données, 
en tenant compte des années bissextiles. 


Utilisation 
On doit indiquer les deux dates de la façon suivante : 
— jour, de 1 à 28, 29, 39 ou 31; 


— mois, de 1 à 12; 
— année, en entier (ex. : 1984). 


Structure du programme 


Lignes 19-49 : initialisations - affichage. 

Lignes 59-89 : introduction de la première date. 

Lignes 99-199 : début du calcul. 

Lignes 119-149 : introduction de la seconde date. 

Lignes 159-179 : suite du calcul - affichage du résultat. 

Lignes 189-219 : demande pour un autre calcul. 

Sous-programme 1999-1939 : permet le calcul du nombre de jours. 


Programme 


10 REM NOMBRE DE JOURS ENTRE DEUX DATE 
S 

15 PAPER G:INK 2 

28 CLS:PRINT “ Ce programme calcule le 
nombre de" 

30 PRINT "jours entre deux dates, en te 
nant" 


48 PRINT * 


58 PRINT:P 
68 INPUT " 
78 INPUT " 
80 INPUT " 
93@ GOSUB 1 
188 NI=N 
1198 PRINT 
120 INPUT 
130 INPUT 
148 INPUT 
150 GOSUB 
168 N2=N 
17@ PRINT 
N1);'"jours 
182 PRINT 
re un autre 
1938 GET K$ 
208 IF K$< 
21@ END 
18008 N=365 
1918 IF MK 
A-12/120)+I 
1928 N=N+I 
T(A/100)+IN 
1938 RETUR 


Exemple 


Ce program 
Jours entre 
compte des 


lere date 
Jour 15 
Mois 4 
Annee 1984 
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compte des annees bissextiles 


RINT:PRINT ‘“lere date :" 
Jour ";J 

Mois ":;n 

Annee ";f 

200 

:PRINT:PRINT "2eme date :" 
“Jour "354 

“Mois ";M 

“Annee ";A 

1880 


:PRINT:PRINT " Ii » a";ABSCN2- 


entre ces deux dates" 


:PRINT:?RINT " Voulez-vous fañ 


caleui 7° 


>"N" GOTO 50 


XA+31X(M-1)+J 

3 THEN N=N+INTCCA-1)/4J-INTCC 
NTCCA-1)/40G) :RETURN 
NTCA/4)J-INTCCM-1)%9.4+2.7)-IN 
TCA/400) 

N 


me calcule le nombre de 
deux dates, en tenant 
annees bissextiles. 


2eme date 


Jour 20 
Mois 5 
Annee 1963 


Ii y a 7636 jours entre ces deux dates 


Voulez-vous faire un autre calcul ? 
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Vous souvenez-vous si vous êtes né un lundi, un mardi ou un autre 
jour...? Voulez-vous posséder avant tout le monde le calendrier de 
l'an 2999? Tout cela est possible grâce à ce programme qui édite le 
calendrier de l’année de votre choix. 


Utilisation 


Il faut introduire l’année (par ex. : 1984, et non simplement 84, car le 
programme marche pour n'importe quelle année postérieure à 1582). 
Puis il faut choisir si l’on veut afficher le calendrier sur l'écran ou sur 
l'imprimante. 


Structure du programme 


Lignes 19-59 : initialisations - affichage. 

Ligne 69 : introduction de l'année. 

Lignes 79-199 : choix de l'affichage. 

Lignes 129-139 : calcul du premier jour de l’année, indiqué par J 
(@=dimanche.. 7=samedi). 

Ligne 149: calcul de la bissextilité de l’année (B=-—1 pour une 
année bissextile). 

Lignes 159-165 : début de l'affichage. 

Lignes 179-279 : cette boucle réalise l'affichage du calendrier pour 
douze mois consécutifs — on peut la décomposer comme 
ceci : 

Lignes 189-299 : lecture du nom du mois M$, du nombre de jours 
dans ce mois NB - affichage. 

Lignes 219-259 : cette boucle affiche les numéros des jours du mois 
(de 1 à 28, 29, 39 ou 31 selon le cas) sous les noms correspon- 
dants des jours. 

Lignes 269-265 : saute une ligne entre deux mois. 

Lignes 1999-1919 : données utiles au programme. 
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Programme 


18 REM CALENDRIER 

2Q PAPER G:INK 2 

38 CLS 

4@ PRINT " Ce programme vous donne le c 
alendrier"; 

5@ PRINT ‘de l’annee de votre choix." 
6@ PRINT:INPUT " Annee ‘";fA 

2@ PRINT:PRINT “ Affichage sur :" 

80 PRINT:PRINT " 1 Ecran" 

98 PRINT:PRINT " 2 Imprimante" 


128 
118 
128 


GET KS$ 
IF K$<"1" OR K$>"2" GOTO 108 
B=A-1:N=365XA+INT(B/4)-INT(B/188)+I 


NT(B/488)-72464G 


138 
148 


JEN-?2XINTCN/2) 
B=CA=4XINT(A/4))AND(CAG1OBXKINT(A/1 


B8))0R(A=4GGXINT(A/408))) 


150 
168 
165 
170 
180 
138 

NT 
135 

RINT 
208 
$ 
210 
220 

ELSE 

230 

240 


m 


CLS:J$=" Dim Lun Mar Mer Jeu Ven Sa 


IF K$="1" THEN PRINT A:PRINT 

IF K$="2" THEN LPRINT A:LPRINT 

FOR I=1 TO 12 

READ M$, NB 

IF K$="1" THEN PRINT TABC14) MS$:PRI 


IF K$="2" THEN LPRINT TABC12) M$:LP 
IF K$="1" THEN PRINT J$ ELSE LPRINT 


FOR N=1 TO NB-CCI=2)AND B) : 

IF K$="1" THEN PRINT TABC4XJ+2) ;Nÿ 

LPRINT TABC4XJ)3;N: 

J=J+1 

IF J=7 THEN J=G:IF K$="1" THEN PRIN 


T ELSE LPRINT 


258 
268 
265 


NEXT N 
IF K$="1" THEN PRINT :PRINT 
IF K$="2" THEN LPRINT:LPRINT 
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27Q NEXT I 

1008 DATA JANUIER, 31,FEURIER, 28, MARS, 31 
» AURIL, 38, MAI, 31, JUIN, 3@ 

1818 DATA JUILLET,31,AOUÛUT,31, SEPTEMBRE; 
30, OCTOBRE , 31 , NOVEMBRE , 30, DECEMBRE , 31 


Exemple 


Ce programme Vous donne le calendrier 
de l’annee de votre choix. 


Annee ? 1985 
Affichage sur 


1 Ecran 
2 Imprimante 


JANUIER 


Dim Lun Mar Mer Jeu Ven Sam 
il 2 3 4 5 

6 7 8 3 19 11 12 

13 14 135 16 17 18 19 

2@ 21 22 23 24 25 26 

27 28 293 30 31 


FEURIER 


Dim Lun Mar Mer Jeu Ven Sam 


MARS 


im Lun Mar Mer Jeu Uen Sam 


3 

10 
17 
24 
31 


4 
11 
18 
25 


l 
8 


2 


16 
23 
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CALCULATRICE —_— 


Ce programme, qui simule une calculatrice travaillant en notation 
polonaise inverse, est intéressant à plusieurs titres. Il vous permettra 
de vous familiariser avec la notation polonaise inverse si vous ne la 
connaissiez pas, et d'effectuer aisément certaines opérations mathé- 
matiques dont ne dispose pas le Basic de l'Oric (particulièrement les 
fonctions trigonométriques inverses et trigonométriques hyperboli- 
ques). Enfin, il vous montre qu'à partir d'une machine ayant un langage 
donné (ici le Basic de l’Oric) on peut très bien simuler le fonctionne- 
ment d’une machine ayant un autre langage. 


Utilisation 

En haut de l'écran sont affichés les quatre registres de la pile, X, Y,Zet 
T. Le registre X est mis en valeur car lui seul est normalement affiché 
sur une calculatrice et contient le résultat des opérations. Un point 
d'interrogation apparaît en bas de l'écran. Il suffit alors d'introduire un 
nombre ou bien un code d'opération, suivi de « Return ». Par exem- 


ple, pour diviser 7 par 2, on fera : 7 (Return), 2 (Return), /(Return); le 
registre X affiche alors 8,5. 


Notre calculatrice connaît les opérations suivantes : addition (+), 
soustraction (—), multiplication (+), division (/), élévation à la puis- 
sance (YTX), élévation au carré (XT2), racine carrée (SQRX), inver- 
sion (1/X), logarithmes naturel (LN) et décimal (LOG), exponentiations 
de bases e (EXP) et 10 (10TX), conversions de degrés en radians 
(RAD) et de radians en degrés (> DEG), fonctions trigonométriques 
circulaires (SIN, COS, TAN, calculées en radians) et leurs fonctions 
inverses (ASN, ACS, ATN, résultat en radians), fonctions trigonomé- 
triques hyperboliques (SNH, CSH, TNH) et leurs fonctions inverses 
(ASH, ACH, ATH), changement de signe (CHS), valeur absolue 
(ABS), partie entière (INT), partie fractionnaire (FRAC), calcul de pour- 
centages (% : X reçoit la valeur de Y x X/199), introduction du nombre 
7 (PI), remise à Ÿ du registre X (CLX) ou des quatre registres (CLST), 
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échange des registres X et Y (X<>Y), rotation de la pile vers le bas 


(R!, c'est-à-dire : l XeYeZeT { ) 


Structure du programme 


Lignes 19-39 : initialisations. 

Lignes 49-89 : affichage des registres. 

Lignes 99-199 : introduction d’un nombre ou d'un code d'opération. 

Ligne 119 : remise à 9 de la variable OP qui indique quelle opération 
on devra effectuer. 

Lignes 129-479 : teste successivement les codes d'opération pour 
mettre OP à la bonne valeur. 

Lignes 489-819 : choisit le bon sous-programme, selon la valeur de 
OP, et revient en 39 pour un nouveau cycle. 

Sous-programmes 1999, 1199, 1209... 4600 : ils effectuent les opé- 
rations que nous avons décrites. 


Programme 


19 REM CALCULATRICE 
2@ PAPER @ 

38 INK 2 

aa CLS 

58 PRINT °T ="3T 

68 PRINT “2 =";2 

28 PRINT MY ="35Y 

89 PRINT:PRINT "X =":;%x 
38 PRINT @ 2,25; '; 
108 INPUT R$ 


110 OP-@ 
129 IF R$="+" THEN OP=1 
13@ IF R$="-" THEN OP=2 


140 IF R$="X" THEN OP=3 
150 IF R$="/" THEN OP=4 
160 IF R$="CHS" THEN OP=S 
17Q IF R$="CLX" THEN OP=6 
188 IF R$="CLST" THEN OP=? 
190 IF R$="INT" THEN OP=8 
200 IF R$="FRAC" THEN OP=3 
219 IF R$="ABS" THEN OP=10 
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220 IF R$="XC>Y" THEN OP=11! 

230 IF R$="RI" THEN OP=12 

24@ IF R$='"x" THEN OP=13 

250 IF R$='">RAD" THEN OP=14 

26@ IF R$=">DEG" THEN OP=15 

27Q IF R$="SIN" THEN OP=16 

28Q IF R$="COS" THEN OP=17 

230 IF R$="TAN" THEN OP=18 

300 IF R$="ASN" THEN OP=193 

310 IF R$="ACS" THEN OP-20 

320 IF R$="ATN" THEN OP=21 

330 IF R$='"LN" THEN OP=22 

348 IF R$="LOG" THEN OP=23 

350 IF R$="EXP" THEN OP=24 

360 IF R$="1@"X*x" THEN OP=25 

370 IF R$="SQRX" THEN OP-=26 

380 IF R$='"x"2" THEN OP=27 

330 IF R$='Y"Xx" THEN OP=28 

400 IF R$="1/X" THEN OP=29 

418 IF R$="PI" THEN OP-30 

42@ IF R$='"SNH" THEN OP=31 

430 IF R$='"CSH® THEN OP-=32 

44Q IF R$="TNH® THEN OP=33 

458 IF R$="ASH® THEN OP=34 

46Q IF R$="ACH" THEN OP=35 

479 IF R$="ATH" THEN OP=36 

488 ON INTCOP/10)+1 GOSUB 5908,600,700,8 
20 

438 GOTO 30 

520 ON OP+1 GOSUB 1000,1100,1200,1300,1 
400, 1500, 1690, 17/00, 1800,1990 

51@ RETURN 

600 ON OP-9 GOSUB 2000,2100,2200,2300,2 
400, 2500, 2600, 2700, 2800, 2300 

61@ RETURN 

708 ON OP-193 GOSUB 3008,3100,3200, 3300, 
3408, 3500, 3600, 3700, 3800, 3300 

710 RETURN 

800 ON OP-29 GOSUB 4800,4100,4200, 4300, 
4400 ,4500,4600 
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818 RETURN 

1800 T=2:2=Y:Y=X:X=UAL(RS) 
1818 RETURN 

1188 X=Y+X:Y=2:2=T 
1118 RETURN 

1208 X=Y-X:Y=2:2=T 
121@ RETURN 

1300 X=YXX:Y=2:2=T 
1319 RETURN 

1400 X=Y/X:Y=2:25%T 
1419 RETURN 

1508 x=-XxX 

151@ RETURN 

1628 x-=0 

161@ RETURN 

1708 *x-Q:Y-0:2-0:T-0 
1719 RETURN 

1808 X=INTCX) 

1819 RETURN 

1908 X=Xx-INTCX) 
1312 RETURN 

2988 x=ABSCX) 

291@ RETURN 

2108 I=x:X=YT:Y=I 
2119 RETURN 

220Q I=Kx:X=Y:Y=28:2=T:T=] 
2219 RETURN 

2320 x=x*xY/100 
231@ RETURN 

2408 X=xxPI/180 
2418 RETURN 

2580 *x=xXx180/PI 
251@ RETURN 

26@@ Xx-SINTX) 

2618 RETURN 

2788 x=COSCx) 

271@ RETURN 

2808 X=TAN(X) 

2818 RETURN 


2308 IF ABSC(X)=1 THEN X=PI/2XSGNCX) ELS 
E X=ATNCX/SGRC1-XXX) ) 

291@ RETURN 

3000 IF ABSCX)=1 THEN X=PI/2XC1-SGNCX)) 

ELSE X=PI/2-ATNCX/SQRC1-XXX)) 

3218 RETURN 

3108 X=ATNCX) 

311@ RETURN 

3208 X=LNCX) 

3210 RETURN 

3308 Xx=LOG(X) 

331@ RETURN 

3400 X=ExPCX) 

341@ RETURN 

3508 *x=107"Xx 

3510 RETURN 

3680 X=SGRCX) 

361G RETURN 

3708 X=XXX 

371@ RETURN 

3800 X=Y"X:Y=2:2=T 

3818 RETURN 

3380 *x=1/x 

391@ RETURN 

4008 T=2:2=Y:Y=X:Xx=PI 

481@ RETURN 

4188 X=(CEXPCX)-EXP(-X)3/2 

411@ RETURN 

4200 X=(EXPCX)+EXP(-X))/2 

4218 RETURN 

4300 X=(EXPCX)-EXP(-X))/CEXPCX)J+EXP(-X) 


431@ RETURN 

4408 X=LNCX+TSGRCXXX+ 1) 
441@ RETURN 

4588 X=LNCX+SQRCXXX- 1 )) 
4518 RETURN 

4698 X=LNC(1+x)/C1-X))/2 
461@ RETURN 


64 


| 
—NOMBRES PREMIERS-— 


Ce programme recherche tous les nombres premiers jusqu'à une 
limite fixée. 


Utilisation 
Il suffit d'indiquer la valeur de cette limite. 


Structure du programme 


Lignes 19-69 : initialisations - affichage. 
Lignes 79-199 : introduction de la limite. 
Lignes 119-299 : recherche et affichage des nombres premiers. 


Programme 


10 REM NOMBRES PREMIERS 

28 PAPER @G:INK 2 

38 CLS 

48 PRINT:PRINT " Ce programme permet d’? 
afficher la 

58 PRINT ‘suite des nombres premiers, J 
usqu?a" 

6@ PRINT ‘une limite que vous devez pre 
ciser,." 
78 PRINT " Jusqu’a quel nombre dois-je" 
80 INPUT "rechercher ‘";" 
38 M=INTCABS(M)) 

180 IF M<S GOTO 70 

119 PRINT:PRINT 2,3, 

1206 FOR N=5 TO M STEP 2 

138 R=INTC(SGRCN))+1 


140 FOR I=3 TO R STEP 2 

158 Q=N/I 

160 IF Q=INTCQ) THEN I=R:P=8:GOTO 188 
178 P=1 

182 NEXT I 

198 IF P=1 THEN PRINT N; 

208 NEXT N 


Exemple 


Ce programme permet d’afficher la 
suite des nombres premiers, jusqu’a 
une Limite que Vous devez preciser, 

Jusqu’a quel nombre dois-je 
rechercher ? 1@@ 


2 3 S ? 11 
13 17 13 23 29 
31 37 41 43 427 
53 593 61 67 21 
23 23 83 83 3? 
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Ce programme effectue la décomposition en facteurs premiers d’un 
nombre entier positif, et affiche la liste de tous ses diviseurs premiers. 


Utilisation 


introduisez le nombre à étudier, qui doit être un entier supérieur ou 
égal à 2. 


Structure du programme 


Lignes 19-79 : initialisations - affichage. 

Lignes 89-199 : introduction du nombre. 

Lignes 119-179 : décomposition en facteurs premiers - affichage des 
diviseurs premiers. 


Programme 


10 REM DECOMPOSITION 

20 PAPER G:INK 2 

30 CLS 

48 PRINT “ Ce programme affiche la List 
e de tous"; 

5@ PRINT "les diviseurs premiers d’un n 
ombre" 

6@ PRINT ‘entier superieur ou egal a 2. 
78 PRINT 

80 INPUT'"'Uotre nombre ";N:PRINT 

38 N=INTCABSCN)) 
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190 IF N<2 GOTO 88 

11@ D=2 

128 IF D>SGRCN) THEN PRINT N:GOTO 7@ 
138 Q=N/D 

140 IF GCINT(Q) THEN D=D+1:GOTO 128 
15@ PRINT D, 

168 N=Q 

17@ GOTO 120 


Exemple 


Ce programme affiche la liste de tous 
ies diviseurs premiers d’un nombre 
entier superieur ou egal a 2. 


Votre nombre ? 18467757@ 


2 3 3 3 3 
3 3 5 ? 7 
11 47 


Votre nombre ? 1@1@81@101 


41 271 3031 
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Ce programme calcule la factorielle d'un nombre entier N positif ou 
nul. Le résultat est noté N1. 


Rappelons que 9!=1 et (N+1)!=(N+1)XN! 
Donc, pour N>O : NI=NX(N—1)X(N—2)x..x3x2X1. 


Utilisation 


Il suffit d'introduire le nombre dont on veut calculer la factorielle. 


Structure du programme 


Lignes 19-79 : initialisations - affichage. 

Lignes 89-99 : introduction du nombre. 

Ligne 199 : teste siN>33, auquel cas on effectue un calcul approché 
de N!. 

Lignes 119-179 : calcul normal de N! par multiplications successives. 

Lignes 189-239 : calcul approché de N! par la formule de Stirling : 
pour N assez grand, N! = V27N NN eN; le résultat est affiché 
sous la forme mantisse-exposant, et si l'exposant est très 
grand, il est lui-même affiché sous la forme mantisse- 
exposant. 


Programme 


18 REM FACTORIELLES 

2@ PAPER G:INK 2 

30 CLS 

4@ PRINT " Ce programme vous permet de 
calculer" 

50 PRINT “la factorielle de n’importe q 
uel" 
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64 PRINT “nombre entier positif ou nul, 
28 PRINT 

80 INPUT “Votre nombre ";N:PRINT 
3Q N=INTCABSCN)) 

180 IF N>33 GOTO 180 

118 F=1 

120 IF N=@ GOTO 16@ 

130 FOR I=1 TO N 

140 F=FXI 

15Q NEXT 

168 PRINT N;"9 =";F 

176 GOTO ?7@ 


180 FI=CLNC2XPI)/2+LNCN)/2+NXLNCNJ-NJ/L . 


NC1@) 

130 E=INT(F1) 

200 M=18"(FI1-E) 

219 F$=STR$C(M)+"E+"+RIGHTSCSTRSCE), LENC 
STR$CE)D)-1) 

228 PRINT N;3"9 =";F$ 

230 GOTO 70 


Exemple 
Ce programme Vous permet de calculer 
ia factorielle de n’importe quel 
nombre entier positif ou nul. 
Votre nombre ? 32 
32 9 = 2.6313083/7E+35 
Votre nombre ? 1984 
1984 9 = 5.3737569E+5682 


Votre nombre ? 536 


536 9 = 6.51864734E+1231 
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Votre nombre ? 397432 


337432 2 = 7,950430]13E+2052726 


Votre nombre ? 2.98434577E+10 


2.938434577E+10 9 = 1E+2.93644869SE+11 
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“CHANGEMENT DE BASE_ 


Ce programme effectue la conversion d'un nombre donné d'une base 
vers une autre. 


Utilisation 


On doit introduire la base de départ, la base d'arrivée et le nombre à 
convertir. 


Structure du programme 


Lignes 19-199 : initialisations - affichage. 

Lignes 119-139 : introduction des données. 

Lignes 149-229 : conversion du nombre, de sa base de départ vers la 
base 19. 

Lignes 239-289 : conversion du nombre en base 19 vers la base 
d'arrivée. 

Lignes 299-399 : affichage du résulat - retour pour un nouveau calcul. 


Programme 


19 REM CHANGEMENT DE BASE 

20 PAPER G:INK 2 

38 CLS 

4@ PRINT “ Ce programme convertit un no 
mbre" 

58 PRINT ‘entier d’une base quelconque 
vers une" 

69 PRINT ‘“autre." 

?7@ PRINT " Au cas ou la base est superi 
eure à 1@'; 
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8@ PRINT “on utilise Les lettres A,B,.. 
.sè pour" 

98 PRINT ‘representer les nombres 18,11 
ses 100." 

18@ PRINT :PRINT 

119 INPUT “Base de depart “;A 

120 INPUT “Base d’arrivee ";B 

130 INPUT "Uotre nombre M3XxS 

14Q L=LENCXS$) 

158 N=@ 

168 FOR I=8 TO L-1 

178 PI1=ASC(MIDSCX$,L-I1,1)) 

188 IF P1347 AND P1<S8 THEN P=P1-48 :GOT 
0 2108 

180 IF P1>64 AND P1<S1 THEN P=P1-SS :GOT 
0 21@ 

288 PRINT “Vous avez fait une erreur.": 
GOTO 130 

218 N=N+PxA"I 

22@ NEXT 

230 R$="" 

248 Q=INT(N/B) 

258 R=N-BXQ 

260 IF R<1Q THEN R$=CHR$SCR+48)+RS$ :GOTO 
288 

220 R$=CHR$SCR+SS)I+RS 

288 IF Q>@ THEN N=QG:GOTO 248 

290 PRINT "Le resultat est: ";R$ 

308 GOTO 18@ 


Exemple 


Ce programme convertit un nombre 
entier d’une base quelconque vers une 
autre. 

Au cas ou la base est superieure a 10 
on utilise les lettres A,B;,...,2 pour 
representer les nombres 1@,11,...,36. 
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Base de depart 7? 
Base d’arrivee ? 
Votre nombre ? 
be resultat est: 


Base de depart 7? 
Base d’arrivee 7? 
Votre nombre ? 
Le resultat est: 


Base de depart 7? 
Base d’arrivee 7? 
Votre nombre ? 
Le resultat est: 


74 


16 
11101810 
ERA 


= 

23 
42231423 
ISLE6 





Ce programme calcule certains éléments de la trajectoire d'un mobile 
en chute libre : 








= X 








Re nn ns 


X2 


La trajectoire est une parabole ; h est la hauteur de départ du mobile, Vo 
sa vitesse initiale et l'angle que fait Vo avec l'horizontale ; y1 est la 
hauteur maximale atteinte par le mobile, x1 son abscisse à ce moment; 
x2 est l’abscisse du mobile quand il atteint le sol. 


Utilisation 


On doit indiquer les valeurs de Vo, ,h. 


Le programme affiche alors les valeurs de x1, y1, ti (instant correspon- 
dant), puis x2 et t2. 


Structure du programme 
Lignes 19-79 : initialisations - affichage. 
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Ligne 89 : G représente l'intensité de la pesanteur et peut être modifié 
pour étudier des trajectoires en différents endroits de la pla- 
nète. 

Lignes 99-139 : introduction des données. 

Lignes 149-299 : calculs et affichage des résultats. 

Ligne 399 : retour pour un autre calcul. 


Programme 


19 REM BALISTIQUE 

20 PAPER G:INK 2 

38 CLS 

4@ PRINT “ Ce programme vous permet de 
calculer" 

58 PRINT "certains parametres de la tra 
Jectoire" 

6@ PRINT ‘d’un projectile lance d’une h 
auteur et"; 

7@ PRINT ‘avec une Vitesse quelconques. 


“ 


80 G=9.81 
38 PRINT :PRINT 
108 INPUT “Vitesse initiale ‘“;V@ 


118 INPUT "Angle (en degres) ";A 

12@ INPUT “Hauteur de depart ‘";H 

13@ IF H<@ GOTO 128 

140 A=AXPI/180 

158 T1=V8XxSINCA)/G 

168 PRINT 

127@ IF Ti<=@ THEN PRINT "Le mobile desc 
end tout de suite":GOTO 238 

182 PRINT "Le mobile commence a descend 
re à :” 

198 PRINT "T =";T1;"secondes" 

200 PRINT "Ses coordonnees sont alors 


212 PRINT “X =" ;U@XxCOS(AJXTI ;'metres" 
22@ PRINT “Y =";-1/2XGXT1"2+UUXxSINCAJXT 
1+H;'metres" 
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239 T2=CUGXSINCA)+SQRCCUBXSINCAI)r2+2XG 
XH))/G 

240 PRINT 

258 PRINT "Le mobile atteint le sol a : 


26@ PRINT "T =";T2; secondes" 

27@ PRINT "Son abscisse est alors :" 
280 PRINT "X =" ;UBXCOS(CA)JXT2;'metres" 
298 PRINT:PRINT 

300 GOTO 120 


Exemple 


Ce programme Vous permet de calculer 
certains parametres de la trajectoire 
d’un projectile lance d’une hauteur et 
avec une Vitesse quelconques. 


Vitesse initiale 7? 10 
Angle (en degres) ? 30 
Hauteur de depart 7 20 


Le mobile commence a descendre à : 
T = ,509683996 secondes 

Ses coordonnees sont alors 

X = 4,41399288 metres 

Y = 21,27421 metres 


Le mobile atteint le sol à : 
T = 2,59229048 secondes 

Son abscisse est alors 

X = 22.449894] metres 


Vitesse initiale 75 
Angle (en degres) ? @ 
Hauteur de depart ? 330 


Le mobile descend tout de suite 
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Le mobile atteint le sol 
T = 8.20233428 secondes 
Son abscisse est alors : 
X = 41,.@116714 metres 
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RESOLUTION _ 
D'EQUATION 
— PAR DICHOTOMIE - 









Ce programme permet de résoudre une équation du type f(x)={ par 
dichotomie. 


Utilisation 


On doit d'abord programmer la fonction en ligne 129. 


On doit ensuite indiquer entre quelles bornes l'ordinateur doit recher- 
cher les solutions. Ces bornes ne doivent pas être quelconques; il faut 
impérativement que la fonction soit négative à une borne et positive à 
l’autre, sans quoi la méthode de dichotomie ne peut pas s'appliquer. 
De plus, s’il y a plusieurs racines entre les bornes que vous indiquez, 
l'ordinateur n’en trouvera qu'une. 


Structure du programme 


Lignes 19-59 : initialisations - affichage de commentaires. 

Lignes 69-199 : demande si l’on veut programmer la fonction ou 
résoudre l'équation. Ceci est très utile si l’on a oublié de 
programmer la fonction avant de lancer le programme. 

Ligne 119 : liste la ligne 129 où est définie la fonction si K3=« 1 ». 

Ligne 129 : définition de la fonction dont on recherche les zéros. 

Lignes 139-169 : introduction et test des bornes. 

Lignes 179-219 : cette boucle effectue la recherche par dichotomie 
proprement dite - elle s'arrête quand on a effectivement trouvé 
une solution (FNF(C)=@) ou quand on a atteint une précision 
suffisante (B—A<19*). 

Lignes 229-269 : affichage de la solution - demande pour un nouveau 
calcul. 
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Programme 


1@ REM RESOLUTION PAR DICHOTOMIE 

20 PAPER GB:INK 2 

38 CLS 

4@ PRINT:PRINT “ Ce programme resout !l? 
equation f(x)=@"; 

5@ PRINT "par ia methode de dichotomie. 


6Q PRINT:PRINT " Voulez-vous 


78 PRINT:PRINT “ 1 Programmer ia fonc 
tion” 

8@ PRINT:PRINT " 2 Resoudre l’equatio 
n" 

30 GET K$ 


108 IF K$<"1" OR K$>'"2" GOTO 98 

110 IF K$="1" THEN CLS:PRINT ‘Allez-y 
"LIST 12@ 

120 DEF FN FCX)J=COSCX)-X 

138 PRINT :PRINT 

14Q INPUT ‘Borne inferieure ";A 

15@ INPUT "Borne superieure ";B 

160 IF FNFCAJIXFNFCB)>-0 OR B<A THEN PRI 
NT:PRINT ‘Bornes incorrectes":GO0OTO 138 

12@ REPEAT 

188 C=CA+B)/2 

190 IF FN FCADXFN FC(C)>@ THEN A=C 

200 IF FN FCBJDXFN F(CC)>@ THEN B=C 

219 UNTIL FN F(C)=Q OR B-AK<I1E-9 

228 PRINT :PRINT 

230 PRINT "La solution est Xx=",C 

24@ PRINT:PRINT ‘Uouiez-vous faire un a 
utre calcul ?" 

250 GET K$ 

268 IF K$©'"N" GOTO 38 


Exemple 


Ce programme resout l’equation f(x)=@ 
par la methode de dichotomie. 
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Voulez-vous : 


1 Programmer la fonction 
2 Resoudre l’equation 


120 DEF FN FCX)=COS(X)-X 


Voulez-vous : 


1 Programmer la fonction 
2 Resoudre l’equation 


Borne inferieure ? @ 
Borne superieure ? 1.5 


La solution est X= .739085132 


Voulez-vous faire un autre calcul 


r 
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Ce programme calcule l'intégrale d’une fonction entre deux bornes 
finies par la méthode de Simpson. 


Utilisation 


Il faut d'abord programmer la fonction en ligne 299. 


Après avoir relancé le programme, on doit indiquer les bornes d'inté- 
gration et le pas d'intégration. 


Structure du programme 


Lignes 19-79 : initialisations - affichage. 

Lignes 89-149 : permet de revenir à la programmation de la fonction, 
ou bien de continuer le programme pour calculer l'intégrale. 

Ligne 159 : liste la ligne 299, si l'utilisateur l’a demandée. 

Ligne 299 : définition de la fonction à intégrer. 

Lignes 219-269 : introduction des données. 

Lignes 279-369 : calcul de l'intégrale par la méthode de Simpson. 

Lignes 379-389 : affichage du résultat. 

Lignes 399-439 : demande pour un autre calcul. 


Programme 


19 REM  INTEGRATION 

20 PAPER B':INK 2 

30 CLS 

4@ PRINT "Ce programme calcule Ll’integr 
ale d’une"; 

58 PRINT “fonction entre deux bornes fi 
nies par" 

6@ PRINT ‘la methode de Simpson. 
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?7@ PRINT 
8@ PRINT "Voulez-vous :" 


38 PRINT 

188 PRINT ‘ 1 Programmer la fonction 
118 PRINT 

128 PRINT " 2 Calculer son integrale 
130 GET K$ 


148 IF K$<"1'" OR K$>"2" GOTO 130 

150 IF K$="1" THEN CLS:PRINT "Allez-» 
"LIST 228 

200 DEF FN FCX)=EXP(-X7"2) 

218 PRINT:PRINT “Bornes d’integration 


22@ PRINT:INPUT " inferieure ";A 
238 PRINT:INPUT " superieure ";B 
248 PRINT:INPUT "Pas d’integration “"3N 
25Q N=INTCABSCN)) 

26@ IF N<2 GOTO 248 

278 N=2XN 

289 H=(B-AJ/N 

290 I=FN FCAD+EN FCB) 

320 FOR K=2 TO N-2 STEP 2 

319 I=I+2XFN FCA+KXH) 

32Q NEXT 

330 FOR K=1 TO N-1 STEP 2 

340 I=I+4XFN FCA+KXH) 

350 NEXT 

360 I-=I*XH/3 

370 PRINT:PRINT ‘Le resultat est :" 
380 PRINT:PRINT “ I =";l 

390 PRINT:PRINT "Voulez-vous calculer u 
ne autre" 

408 PRINT "integrale 7?" 

418 GET K$ 

42@ IF K$="" GOTO 418 

430 IF K$O'N" GOTO 88 


83 


Exemple 


Ce programme calcule l’integrale d’une 
fonction entre deux bornes finies par 
ia methode de Simpson. 


Voulez-vous 


1 Programmer la fonction. 
2 Calculer son integrale. 


Allez-»y 


200 DEF FN FCXJ=EXP(-X"2) 


Voulez-vous 


1 Programmer la fonction. 
2 Calculer son integrale. 


Bornes d’integration 
inferieure 7-1 
superieure ? 1 

Pas d’integration ? 2@ 


Le resultat est 


I = 1.49364837 


Voulez-vous calculer une autre 
integrale ? 





pu SECOND DEGRE-— 


Ce programme calcule les deux racines d’une équation du second 
degré à coefficients complexes, de la forme az?+bz+c=ÿ, où a, b, c 
et z sont donc des nombres complexes. 


Utilisation 


Il faut introduire la partie réelle, puis la partie imaginaire, de chaque 
coefficient a, b, c. Le programme affiche alors les résultats. 


Structure du programme 


Lignes 19-49 : initialisations - affichage. 

Lignes 59-139 : introduction des coefficients a, b, c. 

Lignes 149-159 : calcul du discriminant de l'équation. 

Lignes 169-179 : calcul d'une racine carrée de ce discriminant. 
Lignes 189-259 : calcul des deux racines. 

Lignes 269-329 : affichage des résultats. 

Lignes 339-369 : demande pour un autre calcul. 


Programme 


19 REM EQUATION DU SECOND DEGRE 
À COEFFICIENTS COMPLEXES 
20 CLS:PAPER GB:INK 2 
3@ PRINT:PRINT ‘“Resoiution d’equation d 
u type :" 
4Q PRINT:PRINT AX22+BX2+0C 
= a" 
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50 
68 
78 
80 
98 
180 
119 
128 
130 
148 
158 
168 
178 


PRINT :PRINT:PRINT “Coefficient À 
INPUT "Partie reelle °;A8 
INPUT "Partie imaginaire ‘";A1l 
PRINT:PRINT "Coefficient B :* 
INPUT “Partie reelle “;Ba 
INPUT “Partie imaginaire ‘;B1 
PRINT :PRINT ‘Coefficient C 
INPUT ‘Partie reelle “;C@ 
INPUT "Partie imaginaire ";CI1 
DO-BOXRG-BI1XB1+4XCA1XC1-ABXCO) 
D1=-2XBGXB1-4XCABXCI+A1XCA) 
E@=SGR(C(SQR(DSxD@+D1*xD1)+D2)/2) 
E1=CCSGNCDI)<2)%X2+1)XSQR(C(SQR(DOXDR 


+D1XD1)-D0)/2) 


180 
138 
280 
210 
220 
238 
248 
250 
260 


FO-(EG-B0)/(CABXAG+AIXAl)/2 
Fi=CE1-B1)/CABXAG+AIlXA1)/2 
G2=--CE0+B2)/CABGXAG+AlXAI)/2 
Gi=-CE1+B1)/CAGXAB+AIlXAI)/2 
HB=AOXF@+A1XF 1 

HI1=ABXFI-A1XF@ 

I2-ABXGO+A1XG1 

T1=A8XxG1-A1XGa 

PRINT :PRINT:PRINT “Voici les deux r 


acines 


270 
280 
230 
300 
310 
320 
330 
udre 
340 
350 
360 
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PRINT:PRINT “Racine 21 

PRINT "Partie reelle :*;HQ 
PRINT "Partie imaginaire :";H1] 
PRINT:PRINT “Racine 22 

PRINT ‘Partie reeile :*;10 
PRINT “Partie imaginaire :*;1l1 
PRINT :PRINT:PRINT "Voulez-vous reso 
une autre" 

PRINT " equation 7?" 

GET K$ 

IF K$O'"N'" GOTO 20 


Exemple 

Resolution d’equation du type : 
AX 272+BXx2+C-=0 

Coefficient À 


Partie reelle 
Partie imaginaire ? @ 


-Ù 


Coefficient B 
Partie reelle ? @ 
Partie imaginaire ? @ 


Coefficient € | 
Partie reelle ? 
Partie imaginaire ? @ 


— 


Voici les deux racines : 


Racine &1 
Partie reelle : @ 
Partie imaginaire : 1 


Racine 2&2 
Partie reelle : @ 
Partie imaginaire :-1 


Voulez-vous resoudre une autre 
equation ? 
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COURBES 





Ce programme trace en haute résolution le graphe d’une fonction. 


Utilisation 


Dans une première étape, vous programmez la fonction à représenter 
en modifiant la ligne 169. Après avoir relancé le programme, vous 
devez donner les bornes de l'intervalle à étudier. L'ordinateur vous 
demande alors si vous désirez choisir les bornes sur l'axe des ordon- 
nées. Si vous ne connaissez pas a priori les bornes atteintes par F(X), 
le programme les calcule à votre place. Cependant, si la fonction prend 
des valeurs très élevées (par ex. F[X]=1/X, au voisinage de @), la 
courbe semblera être écrasée sur les axes. Il faut alors relancer le 
programme en choisissant convenablement les bornes sur l’axe Y. 


Structure du programme 


Lignes 19-129 : initialisations. 

Lignes 139-159 : introduction des bornes sur l'axe X. 

Ligne 169 : définition de la fonction à représenter. 

Ligne 179 : définition de la fonction réduite utilisée pour l'affichage. 

Lignes 189-239 : introduction des bornes sur l'axe Y. 

Lignes 249-319 : calcul des bornes de F(X) : MX est la borne supé- 
rieure, MN la borne inférieure. 

Lignes 329-339 : calcul de la position de l'origine. 

Ligne 359 : si XA appartient à l'intervalle [O,C], tracé de l'axe Y. 

Ligne 369 : si YA appartient à l'intervalle [OL], tracé de l'axe X. 

Lignes 379-449 : tracé de la courbe en utilisant la fonction réduite ; la 
ligne 490 vérifie que le point considéré peut être affiché. 


Programme 


18 REM  COURBES 
20 PAPER G:INK 2 
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38 CLS 

48 C=233:L=198 

58 PRINT "“ Ce programme trace la repres 
entation" 

68 PRINT “graphique d’une fonction Y=fC 
K)," 

78 PRINT:PRINT " Voulez-vous :" 

8@ PRINT:PRINT “ 1 Programmer la fonc 
tion" 

98 PRINT:PRINT “ 2 Tracer la courbe" 
108 GET K$ 

110 IF K$<"1" OR K$>'"2" GOTO 1Gg 

120 IF K$="1" THEN CLS:PRINT "Allez-» 
"ILIST 168 

130 PRINT:PRINT “Introduisez les bornes 


148 PRINT:INPUT "x min ";A 

158 INPUT "X max “;B 

160 DEF FN FCX)=SINCX)/X 

17 DEF FN GCX)=INTOCFN FCA+XXC(B-A)/C)- 
MXJXL/ CMN-NMX)+9.S5) 

188 PRINT:PRINT “Voulez-vous choisir le 
s bornes sur Y ?" 

1938 GET K$ 

288 IF K$@'"'O" GOTO 248 

21@ PRINT:INPUT "Y min ‘;"N 

22@ INPUT "X min "3;1"Xx 

23Q GOTO 320 

240 MX=FN FCAD:MN=FN FCA) 

258 IN=(B-A)/108 

268 x=A 

27Q REPEAT 

280 IF FN FCXDDMX THEN MX=FN FCX) 
290 IF FN FCX)<MN THEN MN=FN FCX) 
308 X=X+IN 

318 UNTIL x)B 

328 XA=INT(CXA/CA-B)) 

330 YA=INTCLXMX/CMX-MN)) 

34Q HIRES 
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350 IF XA>=G AND XA<=C THEN CURSET XA,0 


1 


L 


360 IF YA» 


2 


DRAN @ 


1 


YA 


) 


L THEN CURSET Q 


8 AND YA« 


1 


ol 


a 


) 


:DRAU C 
3270 xP 


1 


=8 


=FN G(CG) 


380 TP 


1 TO. € 
400 IF YP<8 OR YP>L OR FN GCI)<G OR FN 


GC 


330 FOR I 


1)2L GOTO 420 


1 


DRAN 1,FN GCI)-YP 


sl: 


419 CURSET xP,YP 


428 xP 


I 


FN GCI) 


449 NEXT I 
45Q PRINT 


e courbe ?‘ 


430 TP 


vous tracer une autr 


Voulez- 


GET K$ 


46Q GET K$ 


:GOTO 78 


TEXT 


THEN CLS: 


N°" 


478 IF K$< 
489 TEXT 

















-JULIEN E ET GREGORIEN 


RS n FR 





Le calendrier Julien, institué par Jules César en 45 av. J.-C., prenait 
comme origine le 1°" janvier de l'an 4713 av. J.-C. à midi et cumulait le 
nombre de jours écoulés depuis cette date. Il fut remplacé en 1582 par 
le calendrier Grégorien que nous connaissons aujourd'hui. 


Le programme suivant vous permet, à partir du jour Julien, de calculer 
la date correspondante dans le calendrier Grégorien. 


Utilisation 


Il suffit de donner le numéro du jour Julien. 


Structure du programme 


Lignes 19-39 : initialisations. 

Lignes 49-50 : introduction du jour Julien. 

Lignes 69-189 : calcul de la date dans le calendrier Grégorien, repré- 
sentée par les variables JO, M et A. 

Lignes 199-2109 : affichage du résultat. 

Lignes 229-259 : demande pour un autre calcul. 


Programme 


1@ REM CALENDRIERS JULIEN ET GREGORIEN 
29 PAPER B:INK 2 

30 CLS 

4Q PRINT:PRINT ‘ Quei est le jour Julie 


n envisage 7" 
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50 


PRINT:INPUT J:PRINT 


68 J=INTCABSCJ)) 

?7@ IF J<22989161 GOTO 108 

88 X=INT((J-1867216.25)/36524.25) 

98 J=J+]+X-INTCX/4) 

198 Y-J+1524 

11Q 2I1=INTCCY-122.1)/365.25) 

129 T=INT(365.25X21) 

138 22=INT(CY-T)/38.68081) 

14@ IF 22<=13.5 THEN M=22-1 :GOTO 160 
158 M=22-13 

160 JO=Y-T-INT(38.6001%x22) 

17Q IF 22<=2,5 THEN A=21-4715:GO0OT0 130 
180 A=21-4716 

19@ PRINT " Cette date correspond au :" 
20@ PRINT:PRINT J0;'/";M;"/°,4 

218 PRINT:PRINT ‘dans ie calendrier Gre 
gorien,.‘ 

228 PRINT PRINT :PRINT " Vouiez-vous cal 
culer une nouvelle" 

238 PRINT "date 7?" 

240 GET K$ 


250 


IF K$C"N" GOTO 40 


Exemple 


Quel est Le jour Julien envisage 7? 
? 2444090 

Cette date correspond au 

6 / 5 / 1979 


dans 


le calendrier Gregorien. 


Voulez-vous calcuier une nouvelle 


date 
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LP 
—— PHASES DE LA LUNE-—— 


Ce programme permet de calculer l’âge de la lune pour toute date 
comprise entre 1999 et 2190. 


Utilisation 
Il suffit de fournir la date considérée, l'ordinateur donne alors un 
résultat compris entre @ et 29,5 jours. Ÿ correspond à la nouvelle lune, 


7,4 au premier quartier, 14,8 à la pleine lune, 22,1 au dernier quartier et 
29,5 à la nouvelle lune. 


Structure du programme 


Lignes 19-59 : initialisations. 

Lignes 69-79 : introduction de la date. 

Lignes 89-119 : calcul de l’âge de la lune, sachant que les phases se 
succèdent avec une période de 29,5 jours environ. 

Lignes 129-139 : affichage du résultat. 

Lignes 149-179 : demande pour un autre calcul. 

Sous-programme 299-229 : calcule le nombre de jours entre la date et 
une date de référence qui correspond à une nouvelle lune. 


Programme 


1@ REM PHASES DE LA LUNE 

2@ PAPER G:INK 2 

30 CLS * 

48 PRINT:PRINT “Ce programme vous perme 
t de determiner" 

5Q PRINT "les phases de La lune." . 
6@ PRINT:PRINT "Entrez la date sous la 
forme :" 


278 INPUT * JJ,NM, AAAA ";J,nM,A 

80 Mi=M:A1=A 

30 GOSUB 208 

188 T-29.530589 

119 N=N/T+5000 

128 AG=CN-INTCNJIJDXT 

130 PRINT:PRINT "Le";J;"/";3Mm1;"/";A1;"; 
ia lune aura" 

14@ PRINT AG;'"jours." 

159 PRINT:PRINT "Voulez-vous faire un à 
utre calcul ?" 

160 GET K$ 

170 IF K$C©'"N'" GOTO 68 

18@ END 

208 IF M<=2 THEN A=A-1:M=M+13 ELSE M=M+ 
1 

218 N=J+INT(365.2SXA)+INT(30.6081x"M)-72 
3067 

22@ RETURN 


Exemple 


Ce programme Vous permet de determiner 
les phases de la lune. 


Entrez ia date sous La forme 
JJ, MM, AARA ? 15 ,4 ,1984 


Le 15 / 4,7 1984 , ia lune aura 
14.695226 jours. 


Voulez-vous faire un autre calcul ? 
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LEVER ET COUCHER 
—DU SOLEIL - 


Ce programme détermine les heures de lever et de coucher du soleil, 
son azimut à ces instants, ainsi que la durée de l’ensoleillement pour la 
date considérée. 


Utilisation 
On doit indiquer : 


— la date d'observation, 
— la longitude et la latitude de l'observateur, exprimées en degrés 
et fraction de degré. 


Les heures de lever et de coucher du soleil sont exprimées en temps 
universel (TU). 


Structure du programme 


Lignes 19-59 : initialisations - affichage. 

Lignes 69-199 : introduction des données. 

Lignes 195-259 : calcul des résultats. 

Lignes 269-370 : affichage des résultats. 

Lignes 389-419 : demande pour un autre calcul. 

Sous-programme 2999-2959 : calcul du nombre de jours écoulés 
depuis le début de l’année. 

Sous-programme 3999-3939 : conversion des heures et fraction 
d'heure en heures et minutes. 


Programme 


1@ REM SOLEIL 
15 PAPER G:INK 2 
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2@ CLS:PRINT " Ce programme calcule l’h 
eure du lever"; 
38 PRINT ‘et l’heure du coucher du soie 


NE de 

4@ PRINT “duree de l’ensoleillement ain 
si que" 

S@ PRINT ‘"l’azimut du iever et du couch 
GT, 


6Q PRINT :PRINT:PRINT "Entrez la date d? 
cbserVvation sous La" 

78 INPUT “forme JJ,MM, AAAA ";,J,M, AN 

8Q PRINT:PRINT "Entrez la longitude (co 
mptee Lers'" 

38 PRINT "l’est positivement et Vers |? 
ouest" 

35 INPUT ‘"negat ivement) ";LO 

199 PRINT:INPUT “Entrez la latitude ";L 
r 

105 C@-PI/180 

119 GOSUB 2800 

128 LE=-282.63+0.S985S6X(NJ-3)+1.9167XSINC 
(8. 9385S6X(NJ-3))%xC0) 

130 IF LE>360 THEN iE=LE-36@ 

148 AD=CATNCCTANCLEXCB))x@.3175))/C0 
143 IF AD<=Q THEN AD=AD+360 

147 AD=AD/15 

159 X=SINCLEXC2)*x0.3978 

168 DE=CATNCX/SGR(C1-X"72)))/CQ 

17@ X=TANCLTXCA)XTANCDEXCO) 

188 EN=CCATNCX/SQR(1-X"2)))/C@+98)x2/15 
198 TP=AD-(6.6224+@.265/71XCNJ+0.5)+L0/1 
5) 

200 ‘: ‘‘ -Q THEN TP=TP+24 

210 LU=TP-EN/2 

22@ CO=TP+EN/2 

230 X=SINCDEXC@)/COSCLTXCO) 

24@ AL=9G-CATNCX/SGR(1-X"2)))/C8 

250 AC-368-AL 

269 PRINT:PRINT:PRINT "Pour La date con 
sideree, en T.U.:° 
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278 PRINT “le soleil se levera a :" 

288 Y=LU 

290 GOSUB 3800 

308 PRINT “et se couchera à 

318 Y=CO 

328 GOSUB 3008 

330 PRINT ‘oour un ensoieillement total 
de ‘ 

348 Y=EN 

350 GOSUB 3080 

369 PRINT:PRINT ‘Azimut du lever :";AL 
; "DEG" 

370 PRINT “Azimut du coucher :";AC ;"DEG" 


380 PRINT:PRINT:PRINT "Vouiez-vous fair 
e un autre calcul ?" 

390 GET K$ 

400 IF K$C©'N'" GOTO 60 

418 END 

2008 IF M<=2 THEN AN=AN-1:M=M+13:GOT0 2 
220 

2018 M=M+1 

2028 D=J+INT(365.2SXAN)+INT(30.6081xN) 
2030 DO=428+INT(365.25SXCAN-1)) 

2048 NJ-D-Da 

2858 RETURN 

3888 H=INTCY) 

3010 MN=INTCCY-H)x308/5+0.5) 

3026 PRINT H;"H!"5;MN; "TN" 

3030 RETURN 


Exemple 

Ce programme calcuie i’heure du iever 
et L'heure du coucher du soleil;,;ia 
duree de l’ensoieillement ainsi que 


i’azimut du lever et du coucher. 


Entrez la date d'observation sous la 
forme JJ,MM, AAAA 7 1 ,5 ,1984 
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Entrez ia iongitude (comptee vers 
t'est positivement et vers i’ouest 
negativement) 7? 5 


Entrez la lat 'tude ? 44 


Pour ia date consideree, en T.u.. 


te suleil se levera a 

4 H 35 MN 

et se couchera à 

18 H 38 MN 

pour un ensuieiilement total de 
14 H 3 MN 

Azimut du lever : 68.4508684 DEG 


Azimut du coucher : 29]1.549],32 D£G 


Voulez-vous faire un autre calcul 
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— PRECESSION 
- DES EQUINOXES 





Ce phénomène connu depuis l'Antiquité est à l'origine du mouvement 
apparent des étoiles autour du pôle nord céleste ; ainsi, dans quelques 
milliers d'années, notre Etoile polaire sera Véga de la Lyre. Les coor- 
données équatoriales d'un astre, c'est-à-dire son ascension droite et 
sa déclinaison, ne sont valables qu'à un instant donné. Les cartes 
astronomiques fournissent des coordonnées relatives au 1°" janvier 
1959 à @ heure. L'astronome doit donc évaluer la dérive des astres: le 
programme proposé effectue ce calcul. 


Utilisation 


Les données à fournir sont le jour, le mois et l'année d'observation. 
l'ascension droite (en heures, minutes, secondes) et la déclinaison 
(en degrés, minutes, secondes) de l'astre. 


Structure du programme 


Lignes 19-60 : initialisations - affichage. 

Lignes 70-1909 : introduction de la date et de l'ascension droite. 

Lignes 119-129 : début du calcul. 

Lignes 189-140 : introduction de la déclinaison. 

Lignes 159-200 : suite du calcul. 

Lignes 219-260 : affichage des résultats. 

Lignes 279-319 : demande pour un autre calcul. 

Sous-programme 2909-2959 : conversion des heures et fraction 
d'heure (ou degrés et fraction de degré) en heures, minutes, 
secondes (ou degrés, minutes, secondes). 

Sous-programme 3909-3019 : conversion inverse. 
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Programme 


18 REM PRECESSION 

2@ CLS:PRINT “ Ce programme calcule la 
derive en" 

30 PRINT ‘ascension droite ainsi que l? 
ecart en‘ 

4Q PRINT "declinaison du à la precessio 
n des" 

58 PRINT ‘equinoxes depuis les coordonn 
ees de‘ 

68 PRINT "reference de 1950" 

7@ PRINT:PRINT:PRINT " Entrez la date d 
‘observation sous la" 

8@ INPUT ‘forme JJ,MM, ARRARA ‘";J,M, AN 

98 PRINT “ Entrez l'ascension droite de 

i’astre” 

180 INPUT "sous la forme H,MN,S ";H,MN; 
S 

118 GOSUB 3200 

120 AD-Yx360/24 

130 PRINT “ Entrez la declinaison de |? 
astre" 

14Q INPUT ‘sous la forme DEG,’,’? ";H,n 
N;,S 

150 GOSUB 3280 

160 DE=Y 

165 NA=J/360+(M-1)/12+AN-1958 

170 DA=NAX(3.27327+1.3361?7XSINCADXPI/18 
2)XTANCDEXPI/188))/240 

188 ED=NAX(20.9468XCOS(ADXPI/188))/3600 

198 AD=CAD+DA)x24/360 

200 DE=DE+ED 

21@ PRINT :PRINT:PRINT "L’ascension droi 
te est de :*:PRINT 

22@ Y=AD 

225 F=1 

230 GOSUB 28008 

24Q PRINT:PRINT ‘La declinaison est de 
ST IPRINT 
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25@ Y=DE 

255 F=@ 

268 GOSUB 2200 

-278 PRINT:PRINT:PRINT “Uouiez-vous fair 
e‘un autre calcui 7?" 

‘280 GET K$ 

300 IF K$O'N" GOTO 78 

318 END 

2088 H=INTCY) 

2085 Y=CY-H)x60 

2018 MN=INTCY) 

202Q S=INTCCY-MN)X60) 

2030 IF F=1 THEN PRINT H;'H"3;MN3"MN"3S; 
“gs 

2040 IF F=@ THEN PRINT H;j'DEG"3;MN;"?";s 
43 ju 

2@5Q RETURN 

3000 Y-H+MN/60+S/3600 

321@ RETURN 


Exemple 


Ce programme calcule La derive en 
ascension droite ainsi que l’ecart en 
declinaison du à la precession des 
equinoxes depuis les coordonnees de 
reference de 1958 


Entrez la date d’observation sous La 
forme JJ,MM, AAAA ? 15, 4 ,1984 

Entrez l'ascension droite de l’astre 
sous la forme H,MN,S ? 18, 36 ,0 
Entrez la declinaison de l’astre 
sous La forme DEG,’,?? 7? 38 ,49 , 2 


L’ascension droite est de 


18 H 37 MN 8 S 
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La declinaison est de 
38 DEG 50 ? 47 ’? 


Voulez-vous faire un autre calcui 7? 
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se 


Le programme suivant effectue la conversion des coordonnées astro- 
nomiques d’un astre (ascension droite et déclinaison) en azimut et 
hauteur. 


Utilisation 


Les données à introduire sont la date d'observation, la longitude 
(positive vers l'Est, négative vers l'Ouest) et la latitude de l'observa- 
teur (en degrés et fraction de degré), les coordonnées astronomiques 
de l’astre et l'heure d'observation en temps universel (TU), soit pour la 
France l'heure légale moins deux heures en été, moins une heure en 
hiver. 


Le programme calcule alors l'azimut, compté positivement depuis le 
Nord dans le sens des aiguilles d’une montre (négativement sinon) de 
@° à 360°; ainsi 99° correspond à l'Est, 225° au Sud-Ouest, etc. Le 
programme indique aussi la hauteur, qui se compte depuis l'horizon 
pris comme @°, jusqu'au zénith qui correspond à 99°. 


Structure du programme 


Lignes 19-49 : initialisations - affichage. 

Lignes 59-299 : introduction des données - conversions des angles. 

Lignes 219-279 : calcul de l’azimut et de la hauteur. 

Lignes 289-319 : affichage des résultats. 

Lignes 329-369 : demande pour un autre calcul. 

Sous-programme 2999-2959 : calcul du nombre de jours depuis le 
début de l'année en cours. 
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Sous-programme 3999-3919 : conversion des heures, mn, s (ou °, ’, "’) 
en heures et fraction d'heure (ou ° et fraction de °). 


Programme 


10 REM  CONVERSION 

15 PAPER GB:INK 2 

28 CLS:PRINT " Ce programme transforme 
iles coordon-" 

30 PRINT "nees astronomiques (ascension 
droite" 

48 PRINT "et declinaison) en azimut et 
hauteur" 

58 PRINT:PRINT:PRINT " Entrez la date d 
observation sous la“ 

68 INPUT “forme JJ,"M, AAAA ";J,M,AN 

28 PRINT:INPUT "Entrez votre longitude 
# 5LO 

80 INPUT “Entrez votre latitude ";LA 

30 PRINT:PRINT "Entrez l’heure d’obseru 
ation Cen T.U,.)" 

108 INPUT “sous la forme H,MN,S "3;H,MN; 
S 

195 CO-PI/188 

110 GOSUB 3008 

128 HE=Y 

130 PRINT:PRINT “Entrez l’ascension dro 
ite de l’astre" 

148 INPUT "sous La forme H,MN;,S"3;H,MN;S 


150 GOSUB 32008 

16@ AD=Y 

170 PRINT "Entrez la declinaison de l’a 
stre" 

188 INPUT ‘sous La forme DEG,°,??";H,MN 
ÿs 

130 GOSUB 30008 

208 DE=Y 

210 GOSUB 2000 
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220 T-6.617+0.@065729XNJ+1.9822733XHE+L0 
715 

230 IF T>24 THEN T=T-24 

248 A=CT-AD)X15 

25Q X=SINCLAXCO)XSINCDEXCO)+COSCLAXCO)X 
COS(DEXCO)XxCOS(AXCO) 

26@ HA=CATNCX/SGR(1-X"72)))/C0 

270 AZ=CATN(SINCAXCO)/ CCOSCAXCO)XSINCLA 
XCO)-TANCLAXCO)XCOS(CDEXCO))))/C0 

288 PRINT:PRINT:PRINT "L’'astre se situe 

a l’azimut :" 

298 PRINT:PRINT A2;'"DEG'" :PRINT 

308 PRINT “et a la hauteur :" 

310 PRINT:PRINT HA;"DEG'" :PRINT 

32@ PRINT :PRINT:PRINT “Voulez-vous fair 
e un autre calcul ?" 

330 GET K$ 

358 IF K$<@'"N" GOTO 58 

368 END 

2008 IF M<=2 THEN AN=AN-1 :M=M+13:GOTO 2 
220 

2018 M=M+1 

2028 D=J+INT(C365.25XAN)+INTC38.6881%n) 

2030 DS=INT(365.25SX(AN-1))+428 

2848 NJ=D-D0 

2050 RETURN 

3000 Y-H+'MN/680+S/3688 

3018 RETURN 


Exemple 


Ce programme transforme les coordon- 
nees astronomiques (ascension droite 
et declinaison) en azimut et hauteur 


Entrez la date d'observation sous La 
forme JJ,MM, AAAA ? 15, 4 , 1984 

Entrez Votre longitude ? 5 

Entrez votre latitude ? 4à 
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Entrez l’heure d’observation (en T.lU.) 
sous La forme H,MN,S ? 21,8, 0 


Entrez l'ascension droite de l’astre 
sous La forme H,MN,S ? 19,48 ,0 
Entrez la declinaison de l’astre 
sous La forme DEG,’,’? 7? 18, @ ,2 
L'astre se situe a l’azimut 
-16.784458 DEG 


et à la hauteur 


55.781959 DEG 


Voulez-vous faire un autre calcul ? 
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Ce programme permet de classer dans l’ordre croissant une liste 
d'éléments numériques ou alphanumériques. 


Utilisation 


On doit d'abord indiquer si l'on veut trier des nombres où des chaînes 
de caractères, puis le nombre d'éléments à trier. 


On introduit ensuite la liste des éléments à trier, et on choisit d'afficher 
le résultat sur l'écran ou sur l'imprimante. 


Le programme affiche alors la liste triée. 


Structure du programme 


Lignes 19-39 : initialisations. 

Lignes 49-89 : choix du type d'éléments à trier. 

Lignes 199-119 : introduction du nombre d'éléments N - dimension- 
nement du tableau T3 qui contiendra la liste triée. 

Lignes 129-249 : boucle principale du programme, qui se décompose 
ainsi : 

Lignes 139-149 : introduction du ê"e élément, que l'on range dans 
une variable intermédiaire ING. 

Ligne 159 : remet à Ÿ la variable J qui contiendra le rang dans la liste 
triée de l'élément que l’on vient d'introduire. 

Lignes 169-199 : cette boucle secondaire s'arrête dès que l'élément 
que l’on vient d'introduire est inférieur (au sens numérique, ou 
bien au sens de l’ordre alphabétique, selon le cas) à un élé- 
ment de la liste triée, ou bien quand on a examiné tous les 
éléments de la liste triée. Ceci permet de mettre J à la bonne 
valeur. 

Lignes 299-229 : cette boucle secondaire permet de décaler les élé- 
ments de numéros J à I—1, qui deviennent ainsi les éléments 
de numéros J+1àl. 
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Ligne 239 : l'élément que l’on vient d'introduire est placé au rang J 


de la liste triée. 


Lignes 259-339 : choix de l'affichage et affichage proprement dit. 


Programme 


19 
20 
30 
40 
sa 
69 
umer 
?8 
80 
1008 
rier 
118 
129 
130 
140 
158 
168 
170 
180 
OR 
138 
280 
210 
220 
238 
240 
250 
260 
270 
280 
230 
320 
310 
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REM TRI 
PAPER G:INK 2 
CLS 
PRINT “ Voulez-vous trier :" 
PRINT :PRINT " 1 Des nombres" 
PRINT:PRINT “ 2 [es chaines alphan 
iques" 
GET K$ 
IF K$<"1' OR K$>'"2" GOTO ?7@ 
PRINT:INPUT " Nombre d’elements à t 
MSNEPRINT 
DIM T$CN) 
FOR I=1 TO N 
PRINT ‘“Element";l; 
INPUT IN$ 
J=@ 
REPEAT 
J=J+] 
F=CK$="1") ANDCUALCINS)<UALCTS$CJ3)) 
CK$="2") AND CINS<T$(J)) 
UNTIL J=I GR F 
FOR K=I-1 TO J STEP -1 
TSCK+1)2=TSCK)I 
NEXT K 
T$CJ)I=INS 
NEXT I 
CLS 
PRINT “ Affichage sur 
PRINT:PRINT “ 1 Ecran“ 
PRINT:PRINT “ 2 Imprimante" 
GET K$ 
IF K$<"1" OR K$>"2" GOTO 238 
FOR L=1 TON 


320 IF K$="1" THEN PRINT T$(L) ELSE LPR 


INT T$(CL) 
330 NEXT L 


Exemple 


Voulez-vous trier 


1 Des nombres 
2 Des chaines alphanumeriques 


Nombre d’elements a trier 7? 4 


Element 1 ? 2 

Element 2 ? 1.145E-4 
Element 3 ? -3,234 
Element 4 ? 1.5434E+5 


Affichage sur : 


1 Ecran 
2 Imprimante 


3.234 
1.145E-4 
2 
1.5434E+5 


Voulez-vous trier 


1 Des nombres 
2 Des chaines alphanumeriques 


Nombre d’elements à trier ? 5 
Element 1 ? ORIC 


Element 2 ? ORDINATEUR 
Element 3 ? IMPRIMANTE 


109 


Element 4 ? PROGRAMME 
Element 5 ? MCP 4@ 


Affichage sur 


1 Ecran 
2 Imprimante 


IMPRIMANTE 
MCP 48 
ORDINATEUR 
ORIC 
PROGRAMME 
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Ce programme affiche en haute résolution une carte de France. 
Utilisation 
Il suffit de lancer le programme ; la carte s'affiche immédiatement. 


Structure du programme 


Lignes 19-29 : initialisations. 

Ligne 39 : lecture des premières données. 

Ligne 49 : positionnement du curseur. 

Ligne 59 : lecture des données suivantes. 

Lignes 69-79 : tests; si XB=9, la carte est finie; si XB=999, il faut 
« lever la plume >» pour aller dessiner la Corse. 

Lignes 89-199 : permet le tracé au fur et à mesure de la carte. 

Lignes 119-449 : données utiles au programme. 


Programme 


19 REM CARTE DE FRANCE 

28 HIRES 

38 READ XA,YA:YA=INTCYAX1.2) 

4Q CURSET XA-20,YA,1 

50 READ XB,YB:YB=INTCYBX1,2) 

68 IF XB=@ THEN END 

70 IF *XB=9333 GOTO 30 

80 DRAW XB-XxA,YB-YA, 1 

930 XA=XB:YA=YB 

108 GOTO 5@ 

119 DATA 144,7,135,10@,132,15;, 135,20 
128 DATA 125,25,120,30,122,32,115,35 
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+30 
140 
150 
160 
170 
180 
198 
280 
210 
220 
230 
2408 
250 
260 
270 
280 
298 
300 
310 
320 
330 
340 
350 
360 
370 
380 
338 
400 
410 
420 
430 
440 


112 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


119,33,106, 34, 106,30, 105,27 
193,30, 100, 26,100, 33, 192,35 
192,40,105,45,95,43,92,4S 
87,40,83,40,77,42,73,42,70,45 
78, 46,73,45,75,47,71,49,75,50 
78:52, 75,55,77,54,80,55,85,60 
86,62,8?,60,90,60,90,62,95,65 
37,63, 100,65,97,65,927,73 
100,7?7,107,80,105,88,110,92 
112,100,107,92,105, 100 

1985, 105,107, 106, 105,106 
125,115,102,122,98,125 

105, 130,110,135,120, 137 

130, 135,140,148,145,142 

155, 140,152, 135,155, 138 

169, 125,170,123,170,125 
177,123,175,126, 180,127 
187,128,195,125,200,120 

203, 115,203,118,197,110 

195, 197,195,102,192,95, 195,92 
192,85,190,77,182,80, 185,72 
190,65,192,60,197,60, 197,50 
200,40, 203, 37,200, 35, 130,35 
185, 30,189, 30, 170,25, 165,20 
162,24,168,17,155,17;158,12 
145,18,144,7 

339, 999 
2008,137,197,138,197,144 

1936, 143,191,14S, 190,150 

190, 155, 193,160, 197,165 

208, 160,201,150,200,137 

2,0 
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REDEFINITION 2e 
DES CARACTERES - 











Ce programme vous permet de redéfinir le jeu de caractères de l'Oric. 
Vous pourrez ainsi obtenir des lettres très stylisées, un alphabet 
étranger ou des symboles graphiques. 


Utilisation 


Vous devez d’abord indiquer le caractère que vous voulez redéfinir. 
Puis une grille s'affiche, formée de points et d'étoiles aux endroits 
correspondant à un point lumineux du caractère. Un curseur clignotant 
indique votre position dans la grille. Vous pouvez le déplacer grâce aux 
quatre touches de déplacement du curseur. Pour effacer un point, 
appuyez sur « Q » (un petit point s'affiche alors à l'endroit indiqué par 
le curseur) ; pour allumer un point, appuyez sur « 1 » (cette fois-ci, une 
étoile s'affiche). Appuyez sur la touche « Return » lorsque vous avez 
fini. 


Structure du programme 


Lignes 19-79 : initialisations - affichage. 

Lignes 89-99 : introduction du caractère à redéfinir. 

Lignes 199-149 : remplit le tableau M% avec les valeurs correspon- 
dant au dessin du caractère. 

Lignes 159-219 : affichage de la grille. 

Lignes 229-239 : affiche le curseur et définit ses coordonnées 
initiales. 

Ligne 249 : affiche le caractère à redéfinir. 

Lignes 319-419 : attend que l'utilisateur appuie sur une touche, puis 
effectue le traitement approprié : modification du tableau M% 
ou bien déplacement du curseur, et ainsi de suite jusqu'à ce 
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que l'utilisateur appuie sur « Return ». 

Lignes 429-439 : rétablit le curseur normal et retourne en 89 pour 
redéfinir un autre caractère. 

Sous-programme 1999-1989 : place dans la mémoire de l'Oric les 
valeurs nécessaires pour que le caractère soit modifié. 


Programme 


10 REM REDEFINITION CARACTERES 

28 PAPER G:INK 2 

38 DIM MxCS,2) 

40 CLS:B-46080 

5@ PRINT “ Ce programme Vous permet de 
redefinir'"; 

69 PRINT “un caractere de votre choix." 
?7@ PRINT:PRINT 

88 INPUT “ Caractere a redefinir ";C$:P 
RINT CHR$C12) 

38 C=ASC(CS) :C$=CHRSCC) 

19@ FOR I-@ TO ? 

119 FOR J-@G TO 5 

120 Mx(J,1)=-C(CPEEKCCX8+B+I) AND 2°CS-J 
110) 

130 NEXT J 

14Q NEXT I 

15@ CLS 

168 FOR I-Q TO ? 

170 FOR J=Q TO 5 

180 IF MX(J,1)=@G THEN PRINT @ S+JX2,5+I 
Xx2;'".'" ELSE PRINT @ SrJX2,S+Ix2;"x" 

198 NEXT J 

200 PRINT @ 2,6+I%X2;CHR$(22) ;'"L" 

218 NEXT I 

22@ PRINT @ 5,6;""" 

238 x=-0:Y-8 

24 PRINT @ 38,9;C$ 

310 REPEAT 

320 GET K$ 

330 IF K$="@g" THEN F=CMXCX, Y) OGD:IF F 
THEN MXCX, Y)=G:PRINT @ 2XX+5,2XY+5;"." 
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340 IF KS$="1" THEN F=CMZCX, Y)O1D:IF F 
THEN MZCX, YJ=1:PRINT @ 2XX+5,2XY+S ;"X" 
350 IF K$=CHR$(11) THEN PRINT @ 2XxXx+5,2 


XY+63;" ":Y=Y-1:IF Y<Q THEN Y=7 

360 IF K$=CHRS(S) THEN PRINT @ 2XX+5,2% 
Y+6;" ":X=X-1:IF X<S THEN X=S 

370 IF KS$=CHR$(S) THEN PRINT @ 2XXx+5,2X 
Y+63" ":X=X+1:IF X>S THEN Xx=0@ 

380 IF K$=CHR$(1S) THEN PRINT @ 2XXx+5,2 
XY+6;" ":Y=Y+1:IF Y>2 THEN Y=Q 


39@ PRINT @ 2XkX+5,2XY+6;""" 
400 IF F THEN GOSUB 1098 
418 UNTIL K$=CHR$C13) 

420 PRINT @ 2,22;CHR$(12) 
430 GOTO 8a 

1908 FOR 1-8 TO ? 

1818 P=a 

1828 FOR J=@ TO 5 

1930 P=P+MzCJ, IDX2-(S-J) 
1949 NEXT J 

1958 POKE B+Cx8+I,P 

1868 NEXT I 

1870 F=0 

1980 RETURN 
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Ce programme permet d'afficher et de désassembler le contenu de 
n'importe quelle partie de la mémoire de l'Oric. 


Utilisation 
Il faut préciser les adresses de départ et de fin en hexadécimal. 


On doit ensuite indiquer si l’on veut que le programme affiche des 
mnémoniques (désassemblage proprement dit) ou des codes ASCII, 
et si l'on veut afficher sur l'écran ou sur l'imprimante. 


Remarque : les codes correspondant aux instructions-machine pro- 
prement dites sont affichés sous forme standard (ex. : LDA, JSR, 
RTS...); par contre, les modes d’adressage sont affichés sous une 
forme directe qui nous semble plus claire : 


IMM : adressage immédiat. 

ABS : adressage absolu. 

ABX : adressage absolu, indexé par X. 

ABY : adressage absolu, indexé par Y. 

ZPG : adressage en page zéro. 

ZPX : adressage en page zéro, indexé par X. 
ZPY : adressage en page zéro, indexé par Y. 
IND : adressage indirect. 

IDX : adressage indirect, indexé par X. 

IDY : adressage indirect, indexé par Y. 


(Les autres modes d'adressage, à savoir l’adressage implicite et 
l'adressage relatif, sont représentés par une chaîne de caractères 
vide.) 


Structure du programme 


Lignes 19-199 : initialisations. 
Lignes 119-159 : introduction des données - conversion en décimal. 
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Ligne 169 : teste si l’on doit afficher des codes ASCII. 

Lignes 199-279 : c'est le désassemblage proprement dit, on va cher- 
cher le contenu d’une adresse, on regarde à quel code- 
machine il correspond et on appelle le sous-programme réali- 
sant le traitement approprié. 

Lignes 329-369 : cette partie affiche les codes ASCII des cases- 
mémoire demandées. 

Sous-programmes 1999, 2299, 3999, 4909 : selon le mode d’adres- 
sage de l'instruction, un traitement différent est effectué. 

Sous-programme 5998-5939 : conversion de décimal en hexa- 
décimal. 

Sous-programme 5599-5539 : conversion d’hexadécimal en décimal. 

Sous-programme 6999-6949 : initialisations. 

Sous-programme 6199-6119 : imprime sur l'écran ou l'imprimante 
selon le cas. 

Lignes 6299-6499 : données utiles au programme. 


Programme 


10 REM DESASSEMBLEUR 

2Q PAPER GB:INK 2 

30 CLS 

120 GOSUB 6000 

119 INPUT ‘Adresse de depart ($) ";D$ 
12@ INPUT “Adresse de fin C$) "3;3F$ 
130 H$=D$ :GOSUB 5500 :D=H:H$=F$ :GOSUB 55 
20 :F=H 

133 PRINT “Mnemoniques C1) ou ASCII (C2) 
o" 

137 GET H$:P=UALCH$SJD:IF P<1 AND PO2T 
HEN GOTO 137 

140 PRINT "Ecran (1) ou imprimante (2) 
9" 

150 GET H$:Q=UALCH$J:IF Q<>1 AND QGO2T 
HEN GOTO 158 

160 IF P=2 THEN GOTO 308 

198 I=D 

208 P=PEEKCI) :MNS$=MNS$CUALCLEFTS$SCC$(PJ,2 
23) 

210 AD=ASCCRIGHT$CC$(CP),1))-65 :AD$=AD$C 
AD) 
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228 H=I:N=4:GOSUB 5080 :Q$=", +H$ :xX=0 
:GOSUB 6120 

230 H=P:N=2:GOSUB 5008:Q$=" ‘+H$ :X=0 :G0 
SUB 6190 

258 ON AP+1 GOSUB 1900,2000, 2000, 2000,2 
200, 2000, 2000, 3000, 3000, 3000, 3000, 4800 
26@ IF I<F THEN I=I1+1:GOTO0 208 

278 GOTO 118 

380 I=D 

310 P=PEEK(ID:IF P<32 OR P>125 AND P<16 
Q THEN P$=""ELSEPS$S=CHR$S(P+128XCP>159)) 
320 H=I:N=4:GOSUB 5000 :Q$=". "+H$ :x=0 
*GOSUB 6100 

330 H=P:N=2:GOSUB 5008 :Q$=" "+H$:x-0:G0 
SUB 6108 

340 Q$=" "+P$:X=]1:GOSUB 6100 

350 IF I<F THEN I=I1+1:GOT0 310 

368 GOTO 118 

1008 Q$=" “+MN$ :X=1 :GOSUB 6100 
1819 RETURN 

2000 I=I1+1:H=PEEKCI):GOSUB S5288:Q$=" "+ 
H$+" "+MN$+" “+AD$:Xx=0:GOSUB 6100 
2019 IF ADI THEN H$="00"+H$ 

2028 Q$=" “"+H$:x=1 :GOSUB 6100 

2030 RETURN 

3008 I=I+1:H=PEEKCI):GOSUB 5880:Q$=" "+ 
H$ :X=0 :GOSUB 6120 :HH$=H$ 

3819 I=I+1:H=PEEKCI):GOSUB 5288:Q$=" "+ 
H$ :X=0 :GOSUB 6100 :HH$=H$+HH$ 

3020 Q$="  "+MN$+" "+AD$+" "+HH$:X=1 : GO 
SUB 6100 

3038 RETURN 

4008 I=I+1:P=PEEKCI):H=P :GOSUB 5908 :Q$= 


O+H$+" “+MNS$ :X=0 :GOSUB 6108 
4810 P=I+1+P+256X(P>127) :N=4 :H=P : GOSUB 
5080 :Q$=" "+H$:Xx=1:GOSUB 6100 


4028 RETURN 


5008 H$="":FOR K=1 TO N:T=INTCH/16) 
5010 H=H-16XT:H=48+H-7XCH>9) 
5020 H$=CHR$SCH)+H$ :H=T :NEXT 
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5030 RETLRN 

5508 H=G:FOR K=1 TO 4 

5519 T=ASCCMIDSCH$,K; 1))2-48:T=T+7XCT>9) 
5528 H=H+TX16"(4-K) :NEXT 

5530 RETURN 

6080 DIM AD$(11),MN$CS6),C$C255) 

6810 FOR I1=@ TO 11:READ AD$CI):NEXT 
6020 FOR I=@ TO 56:READ MNS$CI):NEXT 
6930 FOR I=@ TO 255S:READ C$CIJ:NEXT 
6848 RETURN 

6120 IF Q=1 THEN PRINT Q$;:IF X=1 THEN 
PRINT 

6105 IF Q=2 THEN LPRINT Q$;:IF X=1 THEN 
LPRINT 

6119 RETURN 

6208 DATA "",IMM, 2PG, 2PX, 2PY, IDX, IDY, AB 
S, ABX, ABY, IND, "", 77? 

6218 DATA ADC,; AND, ASL,BCC,BCS, BEG, BIT,B 
MI, BNE , BPL, BRK, BUC, BUS, CLC 

6228 DATA CLD,CLI,CLU, CMP, CPX, CPY, DEC, D 
EX; DEY,EOR, INC, INX, INY, JMP 

6230 DATA JSR, LDA, LDX, LDY, LSR, NOP, ORA, P 
HA; PHP, PLA, PLP, ROL, ROR,RTI 

6248 DATA RTS, SBC, SEC, SED, SEI , STA, STX,S 
TY, TAX, TAY, TSX, TXA, TXS, TYA 

6250 DATA 11A,35F, 00A, GGA, G0A, 35C, 230,0 
GA, 37À, 35B, 03, 00A, GGA, 35H, 83H, GGA 

6260 DATA 1@L,356G,G0A, 00A, GGA, 35D, 83D,0 
0A, 14h, 35J, 00, 00A, GOA, 351 , 831, 88A 

6278 DATA 29H,02F,@0A, @@A,@?C;@2C,4@C,@ 
OA, 3SA, 02B, 40A, G0A, 87H, 82H, 40H, GGA 

6280 DATA O8L,026G,G0A, 00A, G0A, 02D, 4GD,0@ 
OA, 45, 02J, 16A, 00A, GGA, 021, 40I,@0A 

6290 DATA 42A, 24F, GGA, G0A, GBA, 24C, 330,0 
OA, 36A, 24B, 33A, O0A, 28H, 24H, 33H, G0A 

6300 DATA 12L, 246, 00A, G0A, G8A, 240, 33D,0 
OA; 16A, 24J, 00A, OGA, GBA, 241, 331I,@0A 

6318 DATA 43A,01F,GGA,@0A,80A,@1C,41C,0 
OA, 38A,01B,41A;,00A,28K, 81H; 41H, @8A 
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6320 DATA 13L,016G,G0A,QGA,G8A,G1D,41D,0 
2A;,47A,01J,00A,G0A,00A,G11,411,00GA 

6330 DATA 00A,48F,O00A, OGA, 5QC,48C,49C,G 
8A, 23A, 00À, 54, GOA, S0H, 48H, 49H, DGA 

6340 DATA 84L,486G,GGA, GBA, SQD, 48D, 48E,0 
DA, S6A, 48J, 5S5A, OGA, OG0A, 481 , G0A, GGA 

6350 DATA 32B, 30F,31B,00A,32C,30C,31C,0 
28, 528, 30B, 51A, GGA, 32H, 30H, 31H, 00A 

6360 DATA 8SL, 306, 00A, G0A, 32D, 30D,31E,0 
OA, 17A,30J,53A,00A,321,301,31J,@0A 

6378 DATA 20B,18F,00A,GGA,20C,18C;21C,8 
OA, 27A, 18B, 22A, G0A, 20H, 18H, 21H, @0A 

6380 DATA O9, 18G,00A, 00A,G0A,18D,21D,@ 
BA, 15A,18J,00A,G0A,G00A,181,211,@0A 

6390 DATA 19B,44F,GGA, OQ0A, 19C,44C,25C,8 
DA, 26A,44B, 34, GGA, 19H, 44H, 25H, BOA 

6400 DATA G6L,44G,0GA, OGA, G0A, 44D, 250,8 
28, 46, 44J,00A,G0GA,00A,441I,25I,@0A 


Exemple 


Adresse de depart ($) ? FAEI 
Adresse de fin C$) ? FBGS 
Mnemoniques (1) ou ASCII (2) ? 
Ecran (1) où imprimante (2) ? 


FAE1 À2 06 LDX InMM 26: 
FAE3 AQ FB LDY Inn FB | 
FAES 20 86 FA JSR ABS FA86 
FAES A9 G0 LDA IMM 28 
FAERA AA TAX 

LAEB 8A TxA 

FAEC 48 PHA 

FAED A9 00 LDA Im 8@ 
FAEF 20 90 FS JSR ABS F59@ 
FAF2 A2 @0 LDX IMM 28 
FAF4 CA DE x 

FAFS D@ FD BNE FAF4 
FAF? 68 PLA 

FAFS8 AA TAX 
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FAF9 
FAFA 
FAFC 
FAFE 
FBaa 
FBO2 
FBAS 


Adresse de depart 


Adresse 


Mnemoniques (1) 


ES 
EQ 
Da 
Ag 
A2 
20 
6@ 


de 


Ecran (1) 


CIIF 
C128 
C121 
C122 
CF23 
C124 
C125 
C126 
CE2?7 
C128 
C123 
C12A 
C12B 
C12C 
C12D 
C12E 
C12F 
C138 
C131 
C132 
C133 
C134 
C135 


55 
4E 
54 
49 
cc 
46 
aF 
D2 
ac 
ac 
49 
53 
D4 
ac 
5 
52 
49 
4E 
D4 
4E 
45 
58 
Da 


28 
ED 
83 
aa 
3a 


fin 


OÙ 


AHAXMZ Ze 0 Ne TT DONTm ZE 


INX 


CPXx IMM 78 


BNE 


FAEB 


LDA IMM 28 
LDX IM1'@8 
F5 JSR ABS FS90 


RTS 


impr imante 


C$) ? CIl1F 
C$) ? C135 
ou ASCII 


23.1? 
(21°? 
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35 PROGRAMMES 
POUR ORIC 1 et ATMOS 


Cet ouvrage familiarisera le lecteur, débutant 
ou averti, au maniement des commandes 
Basic des Oric 1 et Atmos. 

35 programmes bien structurés abordent des 
domaines variés : jeux, vie pratique, mathé- 
matiques, astronomie, utilitaires. Ils peuvent 
être utilisés tels quels ou servir, plus ou moins 
modifiés, de point de départ ou de sous-pro- 
grammes à des ensembles plus importants. 


Quelques programmes : 


æ Cadavres exquis 
æ Chenille 

& La tour infernale 
& Pois sauteurs 

æ Calculatrice 

m Factorielles 

æ Courbes è 
# Coordonnées astronomiques { n } 
m Redéfinition des caractères | 
m Désassemblage 
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